Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.540 Beiträge
Delphi 11 Alexandria
|
Re: Edit Eingabe nur auf Zahlen beschränken, Probleme mit ^
22. Aug 2008, 13:44
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;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|