Einzelnen Beitrag anzeigen

Chaosente

Registriert seit: 20. Aug 2006
80 Beiträge
 
#1

Formular schrumpfen

  Alt 25. Jul 2008, 17:57
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
  Mit Zitat antworten Zitat