ShowModal mit Programmablauf und selbst schließen?

[BUG]

Du kannst dem Formular eine neue öffentliche Methode verpassen.

Delphi-Quellcode:

TFormProgress.showAndDoSomething: TModalResult;
begin
  show;
  doSomething;
  hide; // bzw. close;
  result := ModalResult;
end;

Die könntest du dann wie showModal einsetzen.
EDIT wegen roter Kasten: oder du überschreibst eben showModal damit.

[dataspider]

Hi,

ich mach es gern so:

Code:

unit frm_Modal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TfrmModal = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure AppIdle(Sender: TObject; var Done: Boolean);
  end;

var
  frmModal: TfrmModal;

implementation

{$R *.dfm}

procedure TfrmModal.FormCreate(Sender: TObject);
begin
  Application.OnIdle := AppIdle;
end;

procedure TfrmModal.AppIdle(Sender: TObject; var Done: Boolean);
begin
  Application.OnIdle := nil;
  // Mach was
  Close;
end;


end.

Frank

[SirThornberry]

Ich hab das Gefühl alle Antworten gehen an der Frage vorbei.
Hier geht es doch darum ein Formular Modal anzuzeigen und darauf etwas darzustellen.
Warum öffnet man ein Formular modal? In der Regel um zu vermeiden das auf anderen Formularen rumgeklickt wird etc. währen auf dem Modal geöffnetem Fenster etwas passiert.
Ein Form also einfach nur mit Show anzuzeigen, darauf etwas zu machen und dann mit Hide wieder auszublenden deckt nicht das ab was man durch das modale Anzeigen erreichen will.

@HJay: Tröste dich, ich verstehe auch nicht wie der gepostete Source von wm_close dein Problem lösen soll. Durch überschreiben des ShowModal bewirkt man ja auch nur das mein eine neue Methode mit gleichem Namen an der Stelle platziert. Aber wie das gewünschte Vorhaben zu erreichen ist geht daraus für mich nicht hervor.

[HJay]

SirThornberry: Danke, das beruhigt mich etwas. Du hast das Problem exakt richtig dargestellt. Ich vermute einfach, dass ich nur zu blöde bin und es dafür eine einfache Standardlösung geben muss, weil dieses Problem doch sehr oft auftreten muss.

Meine Datenbanzugriffe benötigen etliche Sekunden, teilweise gar Minuten. Beim ersten Mal kann der User auch nichts anderes sinnvolles machen, als eben abzuwarten, bis die Daten zur Verfügung stehen. Schade, aber ist eben so.

Ich möchte die TProgressForm modal öffnen, damit der User warten muss und nicht auf der TMainForm herumclickt, also genau wie Du gesagt hast.

Das Fenster soll also aufgehen, den Fortschritt anzeigen und sich dann selbstätig wieder schließen. Das Hauptformular wartet derzeit darauf und macht dann weiter.

Wenn ich auf die modale Eigenschaft verzichte, geht das ganze natürlich mit

Delphi-Quellcode:

FormProgress.Show;
FormProgress.DoTheDeed;

aber dann wird weder automatisch auf DoTheDeed gewartet noch die Vorteile der Modalität genutzt.

Hoffentlich gibt es eine geradlinige Lösung... es gibt doch viele Programme, die ein Statusfenster anzeigen, während sie irgendwas machen... muss doch gehen!

[HJay]

Minimaler Fortschrtt: Wenn ich OnShow leer lasse und die Rechenroutine in OnActivate ausführe, dann ist das Formular wenigstens schon zu sehen und stellt den Fortschritt richtig da.

Allerdings schließt es sich immer noch nicht von alleine. Sowohl Close als auch ModalResult := mrOK in OnActiviate werden ignoriert, es bleibt einfach offen.

OnActivate ist also immer noch zu früh, um eigentlichen Programmcode auszuführen. Man müsste den Code erst starten, sobald das Fenster selbst "fertig" ist.

[BUG]

Zitat von HJay:

OnActivate ist also immer noch zu früh, um eigentlichen Programmcode auszuführen. Man müsste den Code erst starten, sobald das Fenster selbst "fertig" ist.

dataspiders Code sieht so aus, als könnte er das leisten.

[alfold]

Hier liegt die Anwort eigentlich schon auf der Hand.

Du solltest die VCL auch nur dafür nutzen für was sie da ist. Zu Anzeige eines Fortschrittes. und in Deiner Form1 für das schliessen sorgen! Wenn Du schon Form2 über Form1 mit Showmodal aufrufst!

z.B.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if form2.ProgressBar1.Position = 100 then form2.Close;
end;

und schon funktioniert alles

Gruss alfold

[WM_CLOSE]

OK das war mein Fehler, ich dachte man könnte das Laden (das was so lange dauert) im ShowModal machen.
Das mit dem OnIdle ist gar nicht schlecht.

[himitsu]

Nja, als Erstes sollte man sich mal im Klaren sein, wann "wirklich" welche s ereignis ausgelöst wird.

OnShow/OnHide wird jeweils aufgerufen, wenn die Sichtbarkeit geändert werden soll, also wird OnShow aufgerufen bevor die Form sichtbar wird.

> Ergebnis, selbst wenn du in OnShow das Hide aufrufst, wird dadurch nichts verändert, da es noch versteckt ist und danach wird dann die Form eingeblendet und bleibt natürlich sichtbar.




Hierfür könnte man jetzt OnActivate nutzen (aber nicht vergessen weitere Aufrufe zu blocken, da eine Form ja mehrmals "aktiviert" werden kann),
oder man schickt im OnShow eine eigene Message an seine Form (PostMessage), welche erfahrungsgemäß "standardmäßig" erst nach dem Anzeigen ankommt und reagiert dann dort. (außer jemand spielt mal wieder am Application.ProcessMessages rum)

[HJay]

Zitat von dataspider:

Hi, ich mach es gern so:

Hallo Frank, ja, das war die Lösung. Vielen Dank. Ich hatte sie nicht gleich verstanden, weil das globale Application-Objekt so eigenartig hier aussah, aber es ist logisch: In der modalen Form geht auch die gesamte Application in idle, wenn die Form fertig ist, sich zu zeichnen und nichts weiter passiert. Hoffentlich passt das wirklich exakt im strengen Sinne, also dass OnIdle niemals vorher aufgerufen werden kann.

Wie auch immer: Vielen Dank, es funktioniert und das sogar eigentlich genaugenommen sehr geradlinig. Toller Tipp!

Zitat von BUG:

dataspiders Code sieht so aus, als könnte er das leisten.

Ja, in der Tat. Danke noch mal für Deinen Hinweis, doch ein genaueres Auge darauf zu werfen!

Zitat von alfold:

Hier liegt die Anwort eigentlich schon auf der Hand.

Du solltest die VCL auch nur dafür nutzen für was sie da ist. Zu Anzeige eines Fortschrittes. und in Deiner Form1 für das schliessen sorgen! Wenn Du schon Form2 über Form1 mit Showmodal aufrufst!

Das sehe ich nun gar nicht so. Dass man in einer Form nach der Fertigstellung etwas machen will, ist doch wahrlich nicht ungewöhnlich. Ganz im Gegenteil frage ich mich, warum es nicht ein Event á la "OnReady" in jeder TForm gibt, das genau das leistet. Das wäre sogar typisch VCL.

1. OnCreate
2. OnShow
3. OnActivate
4. OnPaint
5. OnReady

Stellt sich eher die Frage, ob man so etwas nachrüsten könnte. Wo wäre da ein Ansatzpunkt?