Zitat von
Sharky:
Hai LOMBI,
eigentlich sollte es ja so ausreichen:
Delphi-Quellcode:
procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
if (DBEdit1.Text = '') then
begin
ShowMessage ('Pflichtfeld');
DBEdit1.SetFocus;
end;
end;
Im
.BeforPost ist es in diesem Fall nicht notwendig da ich ja keine Chance haben einen Speicher Button zu drücken oder (ausser mit einem Timer *g*) dafür sorgen kann das der Datensatz gespeichert wird.
Bist du dir sicher Sharky? Wie sieht es mit dem DBNavigator aus? Oder SpeedButtons? Die bekommen iirc keinen Focus. Damit könnte das OnExit nicht ausgelöst werden!
Ich glaube irgendwann hatte ich mal das Problem in einer meiner alten Anwendungen.
Für den Fall, dass ich micht richtig erinnere, sollte die die Prüfung schon im BeforePost gemacht werden. Allerdings muss dann dort auch eine
Exception ausgelöst werden, damit das Programm das Post nicht durchführt.