Bom dia,
no evento onexit do edit faça:
procedure TForm1.Edit1Exit(Sender: TObject);
var edt : TEdit;
begin
edt := TEdit(sender);
edt.Text := formatfloat('#,##0.00', strtofloat(edt.Text));
end;
se vc tiver q fazer isso em mais de um TEdit, associe esse procedimento ao
evento dos
edits q vc quer q sejam formatados, isso evita de vc ficar repetindo código.
falow.
Fabiano.
>From: "Jerry Alexandre Martins" <[EMAIL PROTECTED]>
>Reply-To: [EMAIL PROTECTED]
>To: <[EMAIL PROTECTED]>
>Subject: [delphi-br] Formatar campo.
>Date: Wed, 24 Nov 2004 08:26:44 -0300
>
>Pessoal, sou iniciante, e preciso formatar um valor que uma edit recebe.
>Ex.: 13,254875125 p/ 13,255 ( tres casas após a virgula)
>
>Alguem pode me ajudar....
>
>
>Jerry Alexandre Martins
>Administrador de rede
>Fone : +55 19 3455-5374 - Ramal 215
>E-mail: [EMAIL PROTECTED]
>Visite nosso Site : www.usicromo.com.br
>
>
>[As partes desta mensagem que não continham texto foram removidas]
>
_________________________________________________________________
MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
--
<<<<< 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
