[ERLEDIGT] Modales Fenster lässt sich nicht schließen

[scrat1979]

Hallo!

Es ist wie verhext. Schon wieder stecke ich bei einem eigentlich "simplen" Problem fest.
Ich rufe aus meinem Hauptfenster das Fenster "Form_Einlesen" über ShowModal auf. Nach dem Anzeigen
soll zum Einlegen eines Datenträgers aufgerufen werden, bis dieser gefunden wurde ODER beim MessageDlg auf
"Abbrechen" geklickt wird. In diesem Fall soll das modale Fenster geschlossen werden, leider tut sich nichts...

Hier der Code:

Delphi-Quellcode:

procedure TForm_Einlesen.FormActivate(Sender: TObject);
VAR Ergebnis : Integer;
begin
  { Hilfsvatiable initialisieren }
  Ergebnis := 0;

  { "Datenträger einlegen..." anzeigen }
  while not ((DirectoryExists(AdvFileSearch.StartDir)) or (Ergebnis = -1)) do Begin
    if MessageDlg('Bitte Datenträger einlegen', mtInformation, [mbok, mbCancel], 0) = mrCancel then Ergebnis := -1;
  End;

  { Wenn Abbrechen geklickt, dann Fenster schließen }
  if Ergebnis = -1 then Begin;
        ModalResult := mrAbort;
  End Else ShowPics;
end;

Die Prozedur arbeitet im Prinzip korrekt: Setze ich statt "ModalResult := ..." ein "ShowMessage(...)" ein, wird dieses korrekt angezeigt.

Hoffe Ihr könnt mir helfen...

SCRaT

EDIT: Einige Rechtschreibfehler / Komponenten-Namen korrigiert...

[marabu]

Hallo Michael,

ich würde ein anderes Ereignis für diese Aktionen wählen, OnActivate() und das Setzen von ModalResult scheinen keine gute Kombination zu sein.

Grüße vom marabu

[scrat1979]

Danke, genau das habe ich soeben doch noch im Netz gefunden :-)

Folgendes funktioniert auch bei OnActivate problemlos:

Delphi-Quellcode:

PostMessage(Form1.Handle, WM_CLOSE, 0, 0);

Thanx :-)


SCRaT