Edit Eingabe nur auf Zahlen beschränken, Probleme mit ^

[DeddyH]

Eine Exception zur Eingabeprüfung? Vielleicht besser so:

Delphi-Quellcode:

procedure TfrmMain.Edit1Exit(Sender: TObject);
var dummy: integer;
begin
  if not TryStrToInt(Edit1.Text, dummy) then
  begin
    Edit1.Text := '0';
    Edit1.SetFocus;
    Edit1.SelectAll;
  end;
end;