Meu caro, Alisson Desculpe a minha inexperiência, pois sou iniciante. - Como utilizar esta procedure. Não entendi como funciona. Abrçs, Almir Alisson Costa Resende <[EMAIL PROTECTED]> escreveu: Use essa função por mim desenvolvida. Pode usar um edit comum mesmo. Faça a chamada no evento OnKeyUp do Edit.
procedure DigitaNumero (Edit: TCustomEdit; Mascara: String; PermiteVazio : Boolean); var Texto : String; i, Casas : Integer; begin //Código para evitar que a seleção do texto do edit seja desfeito pelo SelStart if (Edit.SelText = Edit.Text) and (Edit.Text <> '') then Exit else if (Edit.Text = '') then begin Edit.Text := FormatFloat(Mascara, 0); if PermiteVazio then Edit.Text := ''; Edit.SelStart := Length(Edit.Text); Exit; end; Texto := '0'; Casas := 0; i := Length(Mascara); while (Mascara[i] <> '.') do begin i := i-1; Inc(Casas); Texto := Texto + '0'; end; for i := 1 to Length(Edit.Text) do if (Edit.Text[i] in [#48..#57]) then Texto := Texto + Edit.Text[i]; if (Casas > 0) then Insert(',', Texto, Length(Texto)-Casas+1); Edit.Text := FormatFloat(Mascara, StrToFloat(Texto)); if (Edit.Text = '0') and PermiteVazio then Edit.Text := ''; Edit.SelStart := Length(Edit.Text); end; _______________________________________________________ Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. http://br.info.mail.yahoo.com/ --------------------------------- Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. [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] 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