Showmodal event bei Verlassen des Hauptformulars

[josef-b]

Hallo,

ich habe ein Haupftformular, von wo viele Anwendungen als weitere Formulare gestartet werden.
Die Unterformulare werden meistens mit Showmodal gestartet...

Wenn eines der Unterformulare geschlossen wird, müssen auf dem Hauptformular u.a. diverse
Datenbank-Tabellen neu abgerufen werden.

Ich dachte es geht beim Hauptformular im onactivate Ereignis. Aber das kommt anscheinend
ja nur beim öffnen mit show, nicht bei showmodal.

Gibt es da trotzdem eine Lösung?

[mkinzler]

Das Hauptformular wartet ja auf das Schließen des modalen Unterfenster.

Delphi-Quellcode:

if <Unterformular>.ShowModal = mrOK then
begin
  //Code zur Aktualisierung
end;

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

[mkinzler]

Wobei man hier auf den Click-Event verzichtren kann und den Wert direkt in der Komponente festlegen kann