UN TEDIT UNIQUEMENT NUMÉRIQUE

Commentaire de Pag le 08/02/2004 06:58:04

IL y a plus simple

procedure TForm1.CalcKeyPress(Sender: TObject; var Key: Char);

begin
   if not (key in [#8,'0'.. '9']) then key := #0;
end
end;

ou pour une calculatrice

procedure TForm1.CalcKeyPress(Sender: TObject; var Key: Char);
begin
  test := (Sender as TEdit).Text;
  deci := AnsiPos(',',test);
  if cl = 1 then Calc.Clear;
  cl := 0;
  
  case key of

    #44,#46 : if deci = 0
                then  Begin
                        key := ',';
                        deci :=1;
                      end
              else key := #0;

         '*': begin Button15Click(Sender); key := #0; end;

         '/': begin Button16Click(Sender); key := #0; end;

         '-': begin Button17Click(Sender); key := #0; end;

         '+': begin Button18Click(Sender); key := #0; end;

         #13: begin Button6Click(Sender); key := #0; end;

    else if not (key in [#8,'0'.. '9'])
            then key := #0;
  
  end;

OU tout ce qu'on veux....

Commentaire de Pag le 09/02/2004 07:31:35

Il ne faut pas oublier que c'est de la programmation orientée objet.

ObjetParant ---> TEdit ---> TEditNombre