erweiterung modalresult

[khh]

alsooo.

das mit dem Schliesen des modalen Fensters durch Setzen eines Wertes für Modalresult funktioniert jetzt prima.

ich möchte jetzt beim Klick auf eben diesen Button zuerst meinen plausicheck durchführen und in Abhängikeit davon meine Daten speichern zb. so:

Delphi-Quellcode:

myKundenPlausi.DoAllChecks;
if  (myKundenPlausi.plausiOK = true) then
  begin
    mykunde.KundeSpeichern;
// fenster schliesen 
end;

wenn jetzt der Plausicheck false ergibt werden die Daten nicht gespeichert, was ja so sein soll.
Das Fenster wird aber trotzdem geschlossen weil ja modalresult <> 0 ist.


Was kann ich tun ?



Danke gruss Kh

[tomsson74]

Ich denke in Lazarus sollte es auch ein OnCloseQuery-Event geben (so heisst er glaube ich). Dort kann man die "CanClose" Variable entsprechend setzen.

Grüße
Thomas

[DeddyH]

Du kannst ModalResult doch auch zur Laufzeit setzen.

Delphi-Quellcode:

if CheckBox.Checked then
  ModalResult := mrOK
else
  ModalResult := mrNone;

[mkinzler]

Und wenn du das ModalResult wieder auf 0 setzt?

[khh]

Zitat von mkinzler:

Und wenn du das ModalResult wieder auf 0 setzt?

ich danke euch, funktioniert



Gruss KH