Alinhar

[Hugo Slepicka 0]

Aew Galera do iMasters, sou novo em delphi, e queria saber como faço pra alinhar à direita um texto dentro do TEdit...vlw!!!Agradeço desde já!!!

[ZéLuiz 0]

use essa funçãozinha//ALINHAR TEXTO DO EDIT À DIREITAprocedure TForm1.Edit1Exit(Sender: TObject);var n: Integer; c: TCanvas; h: HWND; // pode se usar Form1.Canvas se for a mesma fonte do Editbegin c := TCanvas.Create; c.Handle := GetDeviceContext(h); c.Font := Edit1.Font; n := round((Edit1.Width - c.TextWidth(Edit1.Text) - 8) / c.TextWidth(\ ' \')); Edit1.Text := stringofchar(\ ' \', n) + Edit1.Text;end;procedure TForm1.Edit1Enter(Sender: TObject);begin Edit1.Text := Trim(Edit1.Text);end;