Datenformular Oberfläche

[Perlsau]

Zitat von VkPenguin:

... aber wenn ich Enter drücke kommt immer ein Fehlermeldungsgeräusch, das ist etwas seltsam. Ist mir aber schon mehrfach bei Edittexten aufgefallen

Durch eine Zuweisung von #0 an Key bleibt das Fehlergeräusch aus:

Delphi-Quellcode:

procedure TFormMain.Edit_FeldKeyPress(Sender: TObject; var Key: Char);
begin
     IF Key = #13 THEN
     BEGIN
          IF TextIstZahl(Edit_Feld.Text) THEN
          BEGIN
               Do.Something;    // oder mach was anderes ...
               Do.AnotherThing;
               // ... weise irgendwas irgendwem zu oder mach was du willst ...
          ELSE ShowMessage('fehlerhafte Eingabe: Nur Ziffern erlaubt ...');
     END;

     Key := #0;
end;