Fenster mit Effekt schliessen !?

[Norton]

Hallöchen

Statt einfach Close und weg würd ich mein Fenster gern mit nen Effekt verabschieden. :)
z.B. Pixel für Pixel verschwinden lassen, find aber irgendwie nichts.
Das ganze sollte aber auch nicht zu aufwendig und kompliziert sein.
Hatt da jemand nen Tip?

Gruß
Norton

[S2B]

Das einfachste wäre AlphaBlend, das geht aber nur bei Win2k und WinXP!
Ne andere Möglichkeit wäre, das Fenster aus dem Bildschirm rausfahren zu lassen oder so!

[Matze]

:hi:

Herzlich Willkommen in der DP!


Ich würde ins OnCloseQuerry deinen Code geben, zuerst CanClose auf false setzen, das Form verschwinden lassen, dann CanClose auf true.

Zum Effekt:

Dü könntest einzelne Pixel mit einer bestimmten Farbe versehen, und "TransparentColor" auf true setzen und dann noch "TRansparentColorValue" deine Farbe zuweisen, dann sieht es so aus, als ob dein Formular langsam verschwindet.

Dazu ist es aber sinnvoll, "Borderstyle" auf bsNone zustellen, und selbst die Titelleiste erstellen, da sonst alles verschwindet, bis auf den Rahmen und die Titelleiste. ;)

[Uncle Cracker]

Ich glaube, dass ist das richtige (sieht auch relativ gut aus):

Delphi-Quellcode:

var
 ani : integer;
begin
form1.width := 372;
ani := 372;
repeat
  ani := ani + 1;
  form1.width := ani;
until ani >= 656;

[Niko]

Oder einfach einen der Standard-Windows-Effekte verwenden, in dem du zum Schließen folgenden Code verwendest:

Delphi-Quellcode:

AnimateWindow(Form1.Handle, 200, AW_CENTER or AW_HIDE);

Weitere Infos dazu solltest du hier finden: AnimateWindow AND Function

[S2B]

Den Effekt kenn ich noch gar nicht! Der sieht ja cool aus! :thuimb:

[Norton]

Thanks @all. Ich denk damit komm ich mal ne ecke weiter. 8)