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