Centralizar texto no edit

Question

Como se faz para a pessoa ja digitar algo no edit e o texto iniciar do meio para a ponta?...

Dbergkamps · Answer

espero que ajude (coletado no pr�prio f�rum).
criar uma propriedade no edit onde voc� informe se � para centralizar ou n�o... do tipo CenterText (True/False);
depois, no OnPaint voc� verifica se a propriedade � true e dai desenha o texto em quest�o...
LeftText := Self.Width - Self.Canvas.Text.Widht(Texto) div 2;
TopText := valor;
WidthText := Self.Canvas.Text.Widht(Texto);
HeigthText := Self.Canvas.Text.Height(Texto);
Canvas.TextOut(Rect(TopText,WidthText,HeightText),Texto);
beleza ? a id�ia � mais ou menos essa.. tem que ver certinho como fazer.. mas acho que � mais ou menos assim..
valeu

Tekmicro · Answer

Caro colega, teria como ser mais objetivo e claro? Resumindo, teria como colocar o c�digo para fazer este processo de centralizar textos no TEdit, porque j� pesquisei por toda a Internet e n�o encontrei absolutamente nada sobre como fazer isto.

Se alguem realmente sabe, queira nos auxiliar.

Agradecemos! :wink:

Siam · Answer

Vc pode criar uma classe que descenda de TEdit, criar o Edit desta classe e ajustar o Alignment pelo CreateParams....

Tekmicro · Answer

Poderia indicar onde eu possa encontrar o c�digo para fazer isto? Porque nunca trabalhei com componentes, digo, no sentido de fazer modifica��es, e tenho uma enorme urg�ncia em resolver isto. Caso n�o seja possivel, entregarei o projeto da forma que est� mesmo!

Agrade�o pela aten��o

Siam · Answer

[code:1:cf6df7a934]type  TEditx = class(TEdit)    procedure CreateParams(var Params: TCreateParams); override;end;procedure TEditx.CreateParams(var Params: TCreateParams);begin  inherited CreateParams(Params);  Params.Style := Params.Style + ES_Center;end;procedure TForm1.FormCreate(Sender: TObject);var Ed:Teditx;begin  Ed        := TEditx.Create(Self);  Ed.Parent := Self;  Ed.Left   := 50;  Ed.Top    := 30;end;[/code:1:cf6df7a934]...

F�rum Centralizar texto no edit #315698