Dialog schließt sich nicht von selbst

[phlux]

Moin
Ich schreibe gerade einen Dialog für mein Programm der den Fortschritt der Suche Visualisiert. So weit so gut. Nachdem ich im OnActivate Event des Dlg's mit Search die Suche starte, will sich der Dlg nicht mehr von alleine schließen lassen (Die Suche ist abgeschlossen). Ich lasse den Dlg mit ShowModal anzeigen, und wollte ihn nach erfolgreicher Suche mitModalResult := mrOK; wieder schließen klappt aber nicht auch ein einfaches Close; tut's nicht. Was tun??

mfg phluphie

[SirThornberry]

Kannst du mal den Quelltext posten, zumindest den teil um den es geht, den rest kannst du ja rausnehmen. Manchmal liegts einfach an einem bug in der Delphi version. Bsp: Drucken bei Delphi 6 = immer Y-Koordinate < 0 in meiner jetzigen Version nicht mehr außerdem kommt jetzt beim textdrucken ein rand herum.. kann also sein dein Delphi hat einen bug.. naja, poste einfach mal den source, vielleicht lässt sich was machen

[phlux]

Morgen!
Also aufrufen tu ich den Dialog/Form wie folgt:

Delphi-Quellcode:

procedure TMainForm.FormActivate(Sender: TObject);
begin
  with TdlgSearch.Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;
end;

Anschließend passiert folgendes:

Delphi-Quellcode:

procedure TdlgSearch.FormActivate(Sender: TObject);
begin
  StartSearch;
end;

Dann das:

Delphi-Quellcode:

procedure TdlgSearch.StartSearch;
begin
  //Hier findet eine lange und qualvolle Suche statt ;)
  ModalResult := mrOK;
end;

Eigentlich müsste die Form danach doch wieder verschwinden, da ich doch per Hand das ModalResult auf mrOK setzte oder??

mfg phlux

[sakura]

Das Problem ist das Activate-Ereignis, in diesem kannst Du keinen Befehl zum wieder schließen ausführen

......

[phlux]

Ahhh ich werd noch verrückt aber wie stelle ich es jetzt an, dass der Dialog gezeigt wird, danach die Suche ausgeführt wird und dann der Dialog geschlossen wird. Weiß jemand Rat??

[sakura]

Versuche mal anstatt des Close ein

SendMessage(Handle, WM_CLOSE, 0, 0); ......

[phlux]

Nein, funktioniert auch nicht

[Christian Seehase]

Moin Phlux,

ich hab' da einen Workaround für Dich:

Statt die StartSearch Prozedur über OnActivate o.ä. zu starten, starte sie mit einem Timer.

Delphi-Quellcode:

procedure TDlgSearch.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
  StartSearch;
  ModalResult := mrOK;
end;

Auf was Du das Interval einstellst musst Du mal ausprobieren.

[phlux]

Hmm, das mit dem Timer ist mir auch schon in den Sinn gekommen, aber ich hab die Idee schnell wieder verschmissen , aber wenn mir schon ein Mod der DP dazu rät werd ich es wohl so machen, vielleicht findet sich ja irgendwann eine bessere Lösung

mfg phluphie

[Christian Seehase]

Moin Phlux,

so funktioniert es wenigstens

Ich hab' Deine Variante auch mal ausprobiert und war selber überrascht, dass es nicht funktioniert, ohne wenigsten eine Fehlermeldung zu produzieren.
Es werden nämlich OnCloseQuery und OnClose aufgerufen, nur hat das keine Wirkung.