Showmodal event bei Verlassen des Hauptformulars

[Michael II]

Im modalen Fenster kannst du in deinem Code den integer Wert modalresult setzen. Durch das Setzen wird das modale Fenster geschlossen. ShowModal liefert den von dir gesetzten Wert zurück.

Wenn du im modalen Fenster zum Beispiel einen OK Button hast, dann sieht das vielleicht so aus:

procedure Tmodalform.OKButtonClick(Sender: TObject);
begin
// was immer du noch tun willst, bevor das Fenster geschlossen wird
// und dann:
modalresult := mrOK; // vordefinierter Wert mrOK - damit wird das modale Fenster geschlossen
end;

oder auch so:
procedure Tmodalform.AButtonClick(Sender: TObject);
begin
// dein Code...
// und dann:
modalresult := 99; // damit wird das modale Fenster geschlossen
end;


Modales Fenster anzeigen:

var antwort : integer;
...
// modales Fenster anzeigen:
antwort := modaldform.ShowModal;
...


Klickst du den OKButton wird antwort den Wert 1 haben, klickst du den AButton wird antwort=99 sein.

Viel Spass...