TEdit NumbersOnly, Meldung nicht anzeigen

[t.roller]

Oder so:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (CharInSet(Key,['0'..'9',#8,#9])) then Abort;
end;