La Web del Programador: Comunidad de Programadores
 
    Pregunta:  21065 - ALINEAR A LA DERECHA CON TEDIT
Autor:  Jesus Anaya Salazar
Como puedo hacer que el componente Edit de Delphi, alinie su contenido a la derecha.

  Respuesta:  David Berneda
Puedes hacer esto:

type
TRightAlignEdit=class(TEdit)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;

procedure TRightAlignEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do Style:=Style or ES_RIGHT;
end;

procedure TForm1.FormCreate(Sender: TObject);
var Edit1 : TRightAlignEdit;
begin
Edit1:=TRightAlignEdit.Create(Self);
Edit1.Text:='Hola';
Edit1.Parent:=Self;
end;

Tambien puedes reemplazar ES_RIGHT por ES_CENTER,
y aƱadir "or ES_UPPERCASE" (y ES_LOWERCASE, ES_NUMBER,etc).