function AlinhaEdit(Edt: TEdit): TEdit;
var
n: Integer;
c: TCanvas;
h: HWND;
begin
c := TCanvas.Create;
c.Handle := GetDeviceContext(h);
c.Font := Edt.Font;
n := round((Edt.Width - c.TextWidth(Edt.Text) - 8) / c.TextWidth( ' '));
Edt.Text := stringofchar(' ', n) + Edit1.Text;
Result := Edt;
end;
Chame a função no Exit do Edit.
No OnEnter coloque (Sender as TEdit).text := trim((Sender as TEdit).text);
Eduardo
----- Original Message -----
From: Anelise
To: [email protected]
Sent: Wednesday, July 20, 2005 12:13 PM
Subject: [delphi-br] Alinhar edit à direita
Bom Dia!
Gostaria de saber se alguém sabe como alinhar o conteúdo do edit à
direita....
Desde já, obrigado!
[ ]'s
Anelise
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
