Formular schrumpfen

[Chaosente]

Also,

ich hab mir überlegt, dass es ganz nett aussehen würde, wenn mein Formular beim Minimieren nicht einfach in die Taskleiste verschwindet sondern sich Breite und Höhe soweit minimieren, bis es verschwunden ist. Dabei wollte ich dann noch die Alphablendvalue verringern. Das mit der Transparenz ist kein Problem, allerdings ist das Schrumpfen nicht so leicht.

Benutzen tue ich folgenden Code:

Delphi-Quellcode:

while (self.Height > 0) and (self.Width > 0) do
  begin
 // alphablendvalue:=alphablendvalue-5;
  self.Width:=self.Width-10;
  self.Left:=self.Left+5;
  self.height:=self.height-10;
  self.top:=self.top+5;

Der Funktioniert zwar, allerdings ruckelt es und die Geschwindigkeit ist am Anfang bei einem 900*620 großen Formular sehr gering.... am ende siehts schön aus aber der Anfang ist üäh...

Weis jemand ne Lösung?

mfg. Chaosente

[DeddyH]

Da gibt es Freeware-Kompos für, z.B. diese. AFAIR war bei den Jedis auch eine dabei (TFormAnimate oder so).

[Chaosente]

Ja ich hab hier was gefunden (http://homepages.borland.com/jedi/je...it.php?Id=2535), aber kann man das nicht selber machen... die Geschwindigkeit kann ich nämlich nicht einstellen... oder ich bin zu dumm....

[Andreas L.]

Den Code in einen Timer packen (ohne while). Wenn (self.Height > 0) and (self.Width > 0) , einfach den Timer deaktivieren.