Thema: Delphi Pflichtfeld

Einzelnen Beitrag anzeigen

Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.355 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Pflichtfeld

  Alt 5. Apr 2005, 16:16
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.
Peter
  Mit Zitat antworten Zitat