Fehlermeldungen im Dialog abfangen

[DeddyH]

Zitat von eticket:

In das Edit-Feld sollen nur Zahlen eingegeben werden können.

Delphi-Quellcode:

procedure TheEdit.KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9',#8]) then
    Key := #0;
end;

procedure TheEdit.Change(Sender: TObject);
begin
  btnOK.Enabled := Length(TheEdit.Text) > 0;
end;

So in der Art mache ich das immer

//Edit: Dabei ist darauf zu achten, dass bei der Anzeige des Dialogs das Edit leer und der Button disabled sind, sonst bringt das so nix

//Edit2: Falsches Ereignis, es muss in Keypress sein