TEdit, TSpinEdit

Code:

{

All you have to do is to verride the CreateParams of the class TEdit.

Install the following unit as a component.

}

unit AlignEdit;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls;

type

  TAlign = (eaLeft, eaCenter, eaRight);

  TAlignEdit = class(TEdit)

  private

    { Private-Deklarationen }

    FAlign: TAlign;

    procedure SetAlign(const Value: TAlign);

  protected

    { Protected-Deklarationen }

    procedure CreateParams(var Params: TCreateParams); override;

  public

    { Public-Deklarationen }

    constructor Create(AOwner: TComponent); override;

  published

    { Published-Deklarationen }

    property Alignment: TAlign read FAlign write SetAlign default eaLeft;

  end;

procedure Register;

implementation

constructor TAlignEdit.Create(Aowner: TComponent);

begin

  inherited Create(AOwner);

  FAlign := eaLeft;

end;

procedure TAlignEdit.SetAlign(const Value: TAlign);

begin

  if FAlign <> Value then

  begin

    FAlign := Value;

    RecreateWnd;

  end;

end;

procedure TAlignEdit.CreateParams(var Params: TCreateParams);

begin

  inherited;

  case FAlign of

    eaLeft: Params.Style   := Params.Style or ES_LEFT;

    eaCenter: Params.Style := Params.Style or ES_CENTER;

    eaRight: Params.Style  := Params.Style or ES_RIGHT;

  end;

end;

procedure Register;

begin

  RegisterComponents('SwissDelphiCenter', [TAlignEdit]);

end;

end.