Работа с формами

[DomiNick]

Я чтот ни разу ни видел, чтоб в "домашних проектах" кто-то использовал "AnimateWindow"...

Каждый что-то своё выдумывал...

Например так можно:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Form1.AlphaBlendValue:=0;
Form1.AlphaBlend:=True;
End;

Procedure TForm1.FormActivate(Sender: TObject);
Var i: Integer;
Begin
For i:=1 To 255 Do
      Begin
      Form1.AlphaBlendValue:=i;
      Application.ProcessMessages;
      End;
End;

Procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var i: Integer;
Begin
Form1.Enabled:=False;
For i:=254 DownTo 0 Do
      Begin
      Form1.AlphaBlendValue:=i;
      Application.ProcessMessages;
      End;
End;

Кстати в одной из похожих тем кто-то обещал поделиться своими версиями подобных "украшений", да и как-то, видимо, забыл.....

[Человек_Борща]

Странно с AlphaSkins данный код не совместим.