Dialog schließt sich nicht von selbst

[phlux]

Moin :hi:
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 mit

Delphi-Quellcode:

ModalResult := mrOK;

wieder schließen klappt aber nicht auch ein einfaches

Delphi-Quellcode:

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

...:cat:...

[phlux]

Ahhh ich werd noch verrückt :shock: 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

Delphi-Quellcode:

SendMessage(Handle, WM_CLOSE, 0, 0);

...:cat:...

[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 :roll: , 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 :hi:

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

[phlux]

Ja ist ziemlich vertrackt das ganze :? hab schon an meinem Verstand gezweifelt, weil rein von der Logik her hätte es funktionieren müssen, naja mit der Zeit findet man ein paar Macken bei Delphi :mrgreen:

[Pseudemys Nelsoni]

ist dasn bug, oder ist das extra so?

[SirThornberry]

naja, bug würd ichs nicht nenne da in einem onActivate ja kein close zu suchen hat. Nen bug wäre es wenn es AfterActivate heißen würde. Eigentlich muss es ja auch so sein weil rein theoretich nicht beim activieren etwas geschlossen werden kann denn dann wäre ja das activieren nicth vollständig. Finds eigentlich in Ordnung das es so ist wies ist. Wenn ich recht durchsehe ist es ja auch so das die activate-message ausgelöst wird, dann wird von irgendeiner funktion die close-message ausgelöst und am ende des onactivates ereignisses wird die activate-message weitergegeben... (stell ich mir zumindest so vor und somit wird nach dem close die activate-message noch weitergesendet)

[Jens Schumann]

Hallo,
Du könntest es mit PostMessage(Handle,WM_CLOSE,0,0) versuchen.
Im Gegensatz zu SendMessage wartet PostMessage nicht auf irgendeine Reaktion.

[SirThornberry]

dürfte auch nicht gehen da die message ja auch schon ankommt während onActivate noch ausgeführt wird

[Delphianer]

Hallo,

dreh es doch einfach rum. Nimm die Message nicht für Close, sondern um die Suche zu starten. On Activate ist sowieso nicht der richtige Ort, nimm lieber OnShow und starte über die Message deine Suche. Dann kannst Du dort auch ganz locker ein Close absetzen.

Viele Grüße

[Delphianer]

Ich glaube, ich muß mich noch erklären. WM_CLOSE kannst du natürlich nicht nehmen, aber Du kannst eine eigene Message WM_STARTSEARCH erklären und eine Botschaftsbehandlungsroutine dazu schreiben.

Viele Grüße

[Christian Seehase]

Moin Jens,

OnCloseQuery und OnClose werden auch aufgerufen, nur wird das Formular nicht geschlossen.
Deshalb spielt es auch keine Rolle, ob Du es nun mit dem Setzen von ModalResult, einem Close, SendMessage mit WM_SYSCOMMAND/SC_CLOSE, WM_CLOSE oder Postmessage und den genannten Messages probierst ;-)


@Delphianer:
Erst wenn das OnShow verlassen wird, wird das Formular angzeigt.

[phlux]

Das Problem beim OnShow Event ist das die Form dann noch nicht gezeichnet ist, und die StatusBar auf der Form dann recht unnütz wäre :? Ich werde mir mal bei Zeit deinen Vorschlag genauer angucken, aber zu funzt es jetzt erstmal. ;)

[Delphianer]

Hallo,

ist ja richtig, dass das Formular in OnShow noch nicht angezeigt wird. Wenn ich aber dort eine Message mit PostMessage absetze, dann wird die Botschaftsbehandlungsroutine erst aufgerufen, wenn der Rest fertig ist, sprich das Fenster gezeichnet ist. Ich bin aber immer wieder erstaunt, wieviele Leute die Hilfe zu OnActivate ignorieren. OnActivate wird aufgerufen, wenn das Formular den Fokus erhält, das passiert zwar bei einem modalen Formular nur einmal, kann aber bei einem nichtmodalen Formular durchaus mehrmals passieren.

Viele Grüße

[phlux]

Dazu muss ich sagen, das ich _sehr wohl_ die Hilfe zu dem Event gelesen habe, und ich weiß auch _sehr wohl_ das der Event OnActivate mehrmals aufgerufen werden kann (halt jedes mal wo die Form aktiviert wird). Ich poste eigentlich Fragen in diesem Forum nur wenn ich wirklich keine Lösung mehr weiß, und das _nachdem_ ich die Forensuche und die OH bemüht habe. ;)

mit freundlichen grüßen, phlux :hi:

[Delphianer]

Hallo,

war auch nicht böse gemeint, ich habe es eben nur schon wirklich oft gesehen.

Viele Grüße

[phlux]

Ich weiß nur solltest du es nicht vielleicht jedem unterstellen nur weil er in deinen Ohren eine vielleicht dämliche Frage stellt. Es gibt nunmal Leute die nicht schonmal "alles" mit Delphi gemacht haben und da mag zB etwas für den Könner sehr leicht sein, aber für jemanden (der vielleicht in anderen Sachen von Delphi mehr vertieft ist) der dies noch net ausgiebig gemacht hat zu einer schwierigen Frage ausarten kann.
Egal, ich werde auf die Idee mit der eigenen Message über kurz oder lang eh darauf zurückkommen müssen da es sich wohl so am unproblematischsten Gestalten lässt.

[Delphianer]

Ich rege mich nicht über dämliche Fragen auf, die Du nicht gestellt hast, sondern über dämliche Kommentare. Du fühlst Dich zu Unrecht angegriffen.

Viele Grüße

[phlux]

Ich rege mich doch gar nicht auf ;)