Edit: Der "Rote Kasten" hat gefehlt.
Du nennst keine Delphi-Version, daher nehme ich mal einfach die aktuelle Version an.
Sowohl TEdit
als auch TLabeledEdit
haben ein Property NumbersOnly
, das auf true
gesetzt die Eingabe von allem außer Ziffern verhindert.
Ich gehe mal davon aus, dass er Delphi 7 verwendet. So sieht das auf dem Screenshot nämlich aus. Problem bei NumbersOnly ist, dass er keine Float-Werte in die Edit-Felder eintragen kann.
Besser wäre hier im KeyPress Event des TEdit die einzelnen Keys auszuwerten und nur die gewollten zuzulassen.
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if not Key in ['0'..'9', '-', ',', #8] then
Key := #0;
end;
Bei neueren Delphi Versionen gibt es noch die
CharInSet()
Funktion. Dann würde das so aussehen:
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if not CharInSet(Key, ['0'..'9', '-', ',', #8]) then
Key := #0;
end;
Die Funktion überprüft das angegebene Zeichen. Wenn dieses Zeichen nicht in der Auflistung (dem
Set) enthalten ist, dann wird das Zeichen auf #0 gesetzt und somit nicht in das TEdit eingetragen. Hier könnte man auch noch einen Dialog oder einen Hint anzeigen (wie NumbersOnly das macht) um den User darauf aufmerksam zu machen, dass das eingegebene Zeichen nicht erlaubt ist.