Editar Maskedit (Resolvido)

[koala]

Por favor , preciso de ajuda , estou desenvolvendo um software como trab bimestral , mas não sei como é o código para editar a maskedit para não aceitar

letra ,só numero e sem precisar mexer na propriedade editmask para fazer isto.Eu preciso da linha de código (acho que é editfloat...)?

muito obrigado pela colaboração.

[Vivendo&Aprendendo]

Ta ai amigão:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var cValor : Char;
begin
if ( Key in ['.',','] ) then
    begin
      Key := #44;
      if Pos(Key,cValor) <> 0 then
      Begin
        Beep;
        Key := #0;
      End;
    End;
  if not ( Key in ['0','1','2','3','4','5','6','7','8','9',',',#8,#7] ) then
  Begin
    Beep;
    Key := #0;
  End;
end;

coloque isso no ONKeyPRess do edit

falou

V&A

[koala]

Muito obrigado pela dica

valeu