TForm anzeigen obwohl Terminate bei TForm OnCreate

[Mike_]

Guten Abend,

es geht um folgenden Sachverhalt:

Ich habe einen Autoupdater geschrieben, welcher über Parameter das entsprechende Programm updated.

Er soll bei dem Startvorgang die GUI anzeigen als auch sofort die Prozeduren/Funktionen, welche ich über den Parameter aufrufe.


Derzeit habe ich diesen Teil in "OnCreate" hereingepackt, leider zeigt er mir dann aber keine GUI an und schließt das Programm nachdem die Funktionen/Prozeduren abgearbeitet sind.

Google und die Boarsuche ergaben ein altes Programm, welches den Mausklick eines Buttons simuliert.
M.M.n. ist das aber sehr schlecht programmiertechnisch gelöst und müsste doch viel einfacher gehen ?!


Also die Frage:

Wie kann man zu erst die GUI aufbauen lassen und danach die Funktionen automatisch abarbeiten lassen ?


Update1:
Als Lösung geht einfach folgendes in das OnCreate hinein zu schreiben:
Form1.Visible := True;

Allerdings ist die Frage: Ist das "sauber" programmiertechnisch gelöst ?


Update2:
Mit Visible := True klappt es nur bedingt.
Mein TImage wird mir nicht angezeigt/aufgebaut mit diesem Befehl.
Das Programm setzt wirklich nur die Form auf visible := true und arbeitet zu erst die ganzen anderen Prozeduren ab, bevor mein TImage auf der Form angezeigt wird...

Wie kann man denn sonst die Form zu erst aufrufen und danach (mit kleiner Verzögerung ?) eine andere Procedur aufrufen, welche alles in Gang bringt ?
[Möglichst kurzer, sauberer Quellcode]

[Luckie]

Erst mal zu deiner Überschrift:

Zitat:

TForm anzeigen obwohl Terminate bei TForm OnCreate

Überlege mal, ob das funktionieren kann. Entweder zeigst du dein Fenster an oder du beendest das Programm. Eins von beiden geht nur. Du kannst ja auch nicht gleichzeitig in ein Auto einsteigen und aussteigen.

Führe den Programmcode im OnShow Ereignis der Form aus.

[Mike_]

Erst einmal danke für deine Antwort !

Ich habe als kleinen "Kniff" ein Sleep(5000) eingebaut, nicht dass das Programm gar nicht erscheint weil es so schnell durchgelaufen ist.

Bei OnShow zeigt er überhaupt nichts an und schließt nach erfolreichem ausführen.

Bei OnActivate zeigt er mir einen Tab in der Taskleiste vom Programm an, das Programm an sich ist aber "hidden" und schließt danach.

Bei dem Ereignis "OnPaint" klappt es nun endlich und er zeigt das Programm an, lädt mir aber mein TImage nicht (Sehe nur die Progressbar und leere Form)...

Das TImage ist nicht auf hidden gesetzt, wenn ich das Application.Terminate herausnehme zeigt er es mir nach dem Ausführen des Codes auch an... was kann ich tun ?

Habe versucht es zu hiden und manuell bei Codeaufruf auf Visible=True zu setzen, war leider vergebens.


Update1:
Ebenfalls habe ich versucht die Anweisungen für den Programmstart im "OnProgress" Event des TImage zu setzen, jedoch wird diese Anweisung dann nicht ausgeführt beim Programmstart.

Gibt es vllt eine Function die als Boolean zurückgibt dass ein TImage aufgebaut ist ? [Auf Visible ist es sowieso gesetzt...]

[Anthrox]

Vielleicht liesse sich mit Threads etwas machen.
Ich habe es mir nicht genau durchüberlegt aber wenn du die Teile welche auch das Terminate enthalten in einen Thread auslagern würdest und am Ende vlt. noch ein Sleep(1000).
Das könnte gehen. Wieso willst du denn das die Form angezeigt wird? Du könntest vorher ja eine Message anzeigen lassen.

MfG Anthrox

[haentschman]

Moin...

Zitat:

Bei OnShow zeigt er überhaupt nichts an und schließt nach erfolreichem ausführen.

- im OnShow kannst du auch noch nichts sehen, weil OnShow ausgeführt wird bevor die Controls / Form angezeigt werden.
- den Funktionscode im OnPaint ist das schlechteste, was du machen kannst.

Lösung:
- du mußt dir ein "OnAfterShow" Ereignis basteln damit OnShow komplett abgearbeitet wird und alles angezeigt wird.

Delphi-Quellcode:

const
  WM_FERTIG = WM_USER + 100; //Name frei wählbar
.
.
private
  procedure HabeFertig(var Msg: TMessage); Message WM_FERTIG;
.
.

procedure TFMain.FormShow(Sender: TObject);
begin
. // Controls einstellen etc.
.
  PostMessage(Handle, WM_FERTIG, 0, 0);
end;

.
.

procedure TFMain.HabeFertig(var Msg: TMessage);
begin
  // dein Funktionscode;
end;

[hoika]

Hallo,

OnActivate musst du nehmen.
Vor deinen eigenen Methoden noch ein Application.ProcessMessages.

Das Programm beendest du dann über PostMessage(Handle, WM_CLOSE, 0, 0);


Heiko

[haentschman]

Zitat:

OnActivate musst du nehmen.

... na supi. Dann klick mal auf ein anderes Fenster und wieder zurück. Was meinst du was passiert ?

[Uwe Raabe]

Ich habe zwar ncoh nicht genau verstanden, was du vorhast, aber du kannst einen Timer auf dein Form legen, diesen auf Enabled schalten und im OnTimer-Ereignis den Timer disablen und deinen Code ausführen.

[Luckie]

Zitat von haentschman:

Zitat:

OnActivate musst du nehmen.

... na supi. Dann klick mal auf ein anderes Fenster und wieder zurück. Was meinst du was passiert ?

Dann setzt man sich einen Flag, ob es schon mal aufgerufen wurde oder nicht.

Richtig, OnShow war falsch. Ich nehme dazu immer OnPaint mit einem Flag.

[Sir Rufo]

Benutze einfach die Komponente TApplicationEvents und dort das Event OnIdle.

Dort prüfst du ob du schon nach einem Update gesucht hast und startest dann die Update-Prüfung.

Das Event wird zum ersten Mal dann ausgeführt, wenn die Anwendung eben nix zu tun hat, also mit dem ganzen Erstellungsgeraffel am Ende ist und alle Formulare erzeugt und angezeigt wurden.

Noch besser ist es allerdings die Updateprüfung in einen Thread auszulagern, falls es mal wieder länger dauert mit der Prüfung