Falscheingabe im EditLabel verhindern.

[Aviator]

Edit: Der "Rote Kasten" hat gefehlt.

Zitat von Uwe Raabe:

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.