Hilfe bei onExit-Ereignis

**Grolle**

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:

zusammenfalten · markieren

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;

Hilfe bei onExit-Ereignis

Hilfe bei onExit-Ereignis

Forumregeln