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). |