Hallo!
Ich habe einige Editfelder auf einer Form liegen. Diese werden im onExit auf
ihre Korrektheit geprüft. Das passiert aber nicht, wenn ich diese übers Mainmenü
speichere (der Fokus bleibt erhalten). Wie kann ich das ändern? Hier mal nen
onExit-Ereigniss:
Delphi-Quellcode:
procedure TForm1.Edit16Exit(Sender: TObject);
begin
try
if (StrToInt(Edit16.Text)< 200) and not (StrToInt(Edit16.Text)= 0)then
begin
MessageDlg(' Guthaben muss zwischen 200 und 999 oder bei 0 liegen! ' + #13#10 +
' Bitte korrigieren Sie die Eingabe! ', mtError, [mbOK], 0);
ActiveControl := Edit16;
end;
except
on EConvertError do
Edit16.Text := '000';
end;
end;