Form.Show nur beim ersten Aufruf mit Effekt unter Vista/7

[Keks]

Unter Vista/7 wird beim erstmaligen Aufrufen einer Form per Form1.Show (sowie beim Starten von Programmen) das Fenster mit einem kleinen Effekt angezeigt (schnelles Einblenden und lechtes Vergrößern). Das hat keine besondere Funktionalität, sieht aber einfach nett aus.

Das Problem ist nun, dass dieser Effekt nur beim ersten Show-Aufruf erscheint. Schließe ich diese Form nun mit Close oder Hide und rufe sie danach wieder mit Show auf, erscheint sie einfach ohne diesen Effekt.

Ich würde nun gern wissen, woran das liegt, dass dieser Effekt nur beim ersten Aufruf erscheint und wie man es erreichen kann, dass der Effekt immer verwendet wird.

Hoffe, jemand hat eine Idee...

[Bernhard Geyer]

Was passiert wenn du das Formular freigibst und neu erzeugst und dann nochmal anzeigst.
Ich vermute das sich für den Fenster-Handle gemerkt wird ob der effekt schon angewand wurde.

[Keks]

Das funktioniert dann zwar, aber ich möchte das Fenster nicht freigeben, weil ich sonst nicht auf dessen Elemente zugreifen kann, wenn es nicht sichtbar ist (was ich stellenweise tun muss).
Kann ich stattdessen irgendwie die Information zurücksetzen, dass der Effekt schon angewandt wurde? Flag o.ä.?

[kalmi01]

Leg Deine Routine aus dem OnShow mal in das OnPaint-Ereigniss

[Keks]

Welche Routine? :?

[Keks]

Also nach ein bisschen Herumgespiele, habe ich das jetzt so:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Free;
  Application.CreateForm(TForm1, Form1);
end;

Damit scheint das zu klappen. Irgendwie finde ich das aber unschön. Zudem ist das bestenfalls ein Workaround und ich kann das leider nicht auf meine MainForm anwenden, die ich in Verbindung mit CoolTrayBar verschwinden und erscheinen lasse. Da kommen Zugriffsverletzungen.

Also ich bin mir ziemlich sicher, dass man da irgendwie (per Windows API?) ein Flag ändern können müsste, damit der Effekt beim Anzeigen immer wieder gezeigt wird. Nur leider habe ich jetzt nach langem Googeln nichts dazu gefunden (mir fehlen wohl die richtigen Suchbegriffe).

Gibt es jemanden, der eine Vermutung hat, wie das gehen könnte und mit besseren Suchbegriffen dazu was findet? Wäre klasse! :)