817 - Alinhar Texto do Edit À Direita

E ai Lloyd? Eu queria elogiar o trabalho que tem feito com o DTDelphi. É uma ferramenta muito util tanto para quem está começando, quanto para quem já está na estrada. Então eu queria dar minha contribuição:

//ALINHAR TEXTO DO EDIT À DIREITA
procedure TForm1.Edit1Exit(Sender: TObject);
var
n: Integer;
c: TCanvas;
h: HWND;
// pode se usar Form1.Canvas se for a mesma fonte do Edit
begin
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;



--------------------------------------------------------------------------------

Enviada por: A. Varaschin


Um colaborador da DTDelphi 2.7
Colabore você com a próxima edição!