|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Erscheinen
21. Okt 2010, 15:35
Delphi-Quellcode:
Procedure TForm1.BtnAnimateClick(Sender: TObject);
Begin
self.AlphaBlend:=False;
AnimateWindow(self.Handle, 1000, AW_BLEND Or AW_HIDE);
AnimateWindow(self.Handle, 1000, AW_BLEND Or SW_SHOW);;
invalidate;
End;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|