TForm anzeigen obwohl Terminate bei TForm OnCreate

[hoika]

Hallo,

Zitat:

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

Delphi-Quellcode:

procedure TForm1.Form1Activate;
begin
  OnActivate:= NIL;

// dein Code
end;

Erledigt, nächste Frage.


Heiko

[Mike_]

Da sich jeder die Mühe gemacht hat eine Antwort zu schreiben.
Habe der Fairness und des Lerneffektes wegen jede Lösung ausprobiert.

Zitat von 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);

Das ging super einfach.
Im FormActivate Event habe ich nur (Vor dem Code):

OnActivate := NIL;
Application.ProcessMessages;

schreiben müssen.

Super dass es einen solchen Befehl gibt, AutoIt hat auch so etwas, bei Delphi kam ich gar nicht darauf.

Zitat von 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

Das klappt richtig klasse und war innerhalb ein paar Sekunden getan !

Reicht es, im OnIdle Event das Programm mit Application.Terminate zu beenden oder bringt PostMessage(Handle, WM_CLOSE, 0, 0) irgendwelche mir unbekannten Vorteile ?

Danke für zahlreichen Antworten in der kurzen Zeit !

Anmerkung:
(Der Updater ist ausgelagert, es ist nicht im "Hauptprogramm" enthalten)

@haentschman
Deine Methode ist quasi das "selbst erstellen eines OnIdle Ereignisses, welches ich mit dem EventManager erstellt habe.
Daher wollte ich, wie sagt man hier im Forum "Das Rad nicht neu erfinden"

@Uwe Raabe
Es wird ein Updater gestartet, bevor die "Hauptapplikation" gestartet wird.
Dieser Updater wurde aber nicht angezeigt bzw. nur ohne das TImage welches ich gesetzt hatte, darum ging es hier.
Danke für deine Antwort, allerdings empfinde ich es mit einem Time als "programmiertechnisch suboptimal" (Siehe Methode oben EventHandler).

[hoika]

Hallo,

im OnActivate klappt als saubere Lösung nur das PostMessage.
Ein halt geht aber immer.



Heiko

[Mike_]

Zitat von 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

Hier hatte ich das Problem, dass das Programm in einer Endlosschlaufe läuft, obwohl ich vorher eine Variable deklarierte und bei OnIdle sagte er solle nur weiter machen falls diese auf 0 steht.

Hat er wohl erkannt, jedoch blieb er in der Funktion einer Funktion stecken

Beispiel:
OnIdle -> CopyFileX Function -> WriteLogY Function
Nun blieb er mir, wenn ich z.B. eine MsgBox ind er WriteLogY Funktion reinpacke immer darin stecken und wiederholte sie von oben bis unten.

Es funktionierte tadellos ohne diese MsgBox, aber ist nicht der Sinn der Sache.

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

Das war doch die - für mich - beste Lösung und vor allem ohne "Nebenwirkungen".

Durch meine Unerfahrenheit habe ich es im letzten Post noch nicht erkannt, vielen Dank Herr Raabe