Ich habe es so versucht, aber es haut nicht hin, jetzt wird nichts mehr gespeichert.
Delphi-Quellcode:
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
var ok : boolean;
begin
ok:= false;
if DBemail.DataField <> '' then ok:= false;
case Button of
nbPost : if ok = false then abort;
end;
end;
mfg