1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

procedure FadeFormIn(aForm: TForm; Slowing: Byte);
var
  i: Integer;
  bBlend: Boolean;
  iValue: Byte;
begin
 with aForm do
 begin
  Hide;
  {Ursprgl. Werte sichern}
  bBlend := Alphablend;
  iValue := TransparentColorValue;

  Alphablend := True;
  TransparentColorValue := 0;

  for i := 0 to 255 do
  begin
   AlphablendValue := i;
   Sleep(Slowing);
   Refresh;
   if not Visible then Visible := True;
  end;

  {Ursprgl. Werte wiederherstellen}
  Alphablend := bBlend;
  TransparentColorValue := iValue;
 end;
end;

procedure FadeFormOut(aForm: TForm; Slowing: Byte; doClose: Boolean);
var
  i: Integer;
  bBlend: Boolean;
  iValue: Byte;
begin
 with aForm do
 begin
  {Ursprgl. Werte sichern}
  bBlend := Alphablend;
  iValue := TransparentColorValue;

  TransparentColorValue := 0;
  Alphablend := True;
  Update;

  for i := 255 downto 0 do
  begin
   AlphablendValue := i;
   Sleep(Slowing);
   Refresh;
  end;

  {Ursprgl. Werte wiederherstellen}
  Alphablend := bBlend;
  TransparentColorValue := iValue;

  if doClose then Close;
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Procedure TForm1.BlendOff;
var f: integer;
begin
 If DebugHook <> 0 then Exit;//nicht in der IDE
 AlphaBlendValue := 254;
 f := 254;
 repeat
   Dec(f,2);
   Form1.AlphaBlendValue := f;
 until f <= 0;
 Form1.AlphaBlendValue := 0;
end;					

1:
2:
3:
4:
5:
6:

  for i := 255 downto 0 do
  begin
   AlphablendValue := i;
   Sleep(Slowing);
//   Refresh;
  end;