Pflichtfeld

[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.