Ereignis für Startprozedur

[Kegel]

Hallo,
kann mir jemand das Ereignis nennen welches man benutzen muss um nach dem Start einer Anwendung sofort etwas laufen zu lassen.
Dabei sollte das Hauptfenster schon voll aufgebaut auf dem Bildschirm zu sehen sein.
Bei "OnPaint" ist das Hauptfenster noch nicht vollständig.
Bei "OnCreate", "OnShow", "OnActivate", .. ist das Fenster noch nicht zu sehen und erscheint erst nach Ablauf der Startprozedur.

Hartmut

[af0815]

Bsp: In OnActivate einen Timer starten (und gegen nochmaliges Aufrufen verriegeln) und dann in der Timerprozedure das was man will starten.

OnActivate ist deshalb gut, weil es unmittelbar vor jedem aktivwerden des Fensters kommt.

[theo]

Ich würde es so machen:

Code: Alles auswählen

procedure TForm1.Async(Data: PtrInt);
begin
  ShowMessage('test');
end;      
 
procedure TForm1.FormShow(Sender: TObject);
begin
  Application.QueueAsyncCall(@Async,0);
end;

[lrlr]

mit PostMessage eine message schicken.. an form.handle

oder einen normalen timer (der ist auch message basiert) mit 0ms verwenden (im formShow aktivieren) und beim execute wieder deaktivieren)

edit: QueueAsyncCall schaut eleganter aus, gibt es aber unter delphi nicht (falls da ein kriterium wäre...)

[Kegel]

Ich würde es so machen:

Code: Alles auswählen

procedure TForm1.Async(Data: PtrInt);
begin
  ShowMessage('test');
end;      
 
procedure TForm1.FormShow(Sender: TObject);
begin
  Application.QueueAsyncCall(@Async,0);
end;

Hallo theo und die anderen,
vielen Dank für die schnellen Anworten.
Welche von den Prozeduren muss ich an "OnActivate" hängen?
Vielen Dank Hartmut

[theo]

Welche von den Prozeduren muss ich an "OnActivate" hängen?

Wie meinst du das?

OnShow -> procedure TForm1.FormShow(Sender: TObject);

[Kegel]

Welche von den Prozeduren muss ich an "OnActivate" hängen?

Wie meinst du das?

OnShow -> procedure TForm1.FormShow(Sender: TObject);

Hallo theo,
jetzt funktioniert es - vielen Dank - habe die (meine) FormShow an "OnShow" (in der IDE) hinterlegt.
Beim Compilieren komm zwar "Hint Parameter Data not used" aber das ist egal.
Und so ricthig verstehen tu ich es auch noch nicht.
Vielen Dank Hartmut

[pluto]

Du kannst meines Wissens durch Komplierschalter auch die Ausgabe von Hinweisen verhindern.

@Theo
Wie wäre es, deinen Tipp in die "Wissens-DB" einzubringen ? Das ist zwar keine Standard Frage, aber dafür gibt es ja bereits andere Foren. Ich meine diesen hier "http://www.lazarusforum.de/viewtopic.php?f=21&t=1043&view=unread#unread"

[theo]

Wie wäre es, deinen Tipp in die "Wissens-DB" einzubringen ?

Da gibt's schon was im Wiki:
http://wiki.lazarus.freepascal.org/Asynchronous_Calls" onclick="window.open(this.href);return false;

[Scotty]

Noch eine Variante: Ich verbinde Application.OnIdle in OnCreate und innerhalb der DoIdle()-Methode setze ich dann Application.OnIdle auf nil.

[Socke]

Es gibt auch einen Event-Handler, der nur beim ersten Aufruf eines Formulars ausgeführt wird. OnFromShow wird bei jedem Anzeigen ausgeführt (minimieren, verstecken, etc.).
Dazu braucht man nur eine Funktion vom Typ TNotifyEvent und man muss diese Funktion manuell (in OnCreate oder im Constructor) registrieren:

Code: Alles auswählen

procedure TForm1.FirstShow(Sender: TObject);
begin
  // was getan werden muss
end;
procedure TForm1.OnCreate(Sender: TObject); // muss mit OnCreate verknüpft sein
begin
  Self.AddHandlerFirstShow(@FirstShow);
end;

[pluto]

Ich hätte ja einfach eine Boolean Variable genommen und sie unter z.b. onActivate gepackt und dort auf True gestellt. bei OnCrete würde ich sie mit False belegen.

[Socke]

Wie wir sehen, führen viele Wege nach Rom und einige sogar zu einem Segmentation Fault (also die Klippe runter oder so)

[theo]

OnFromShow wird bei jedem Anzeigen ausgeführt (minimieren, verstecken, etc.).

Meines Wissens wird FormShow nur beim ersten Anzeigen und bei Show(); bzw. Visible:=true; aufgerufen.
Andere Fälle sind mir nicht bekannt.
Für ein Hauptfenster also normalerweise nur beim Start.
Ist also unbedenklich für Hauptfenster, wenn man es nicht hidet, was eigentlich nie der Fall sein sollte.