Form Langsam "Einblenden" mit Alphablend

[bigg]

Jupp, oder so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
Self.AlphaBlend := True;
i := 0;

repeat
Self.AlphaBlendValue := i;
Application.ProcessMessages;
inc(i, 5);
Sleep(10);
until i >= 255;

Self.AlphaBlend := False;
end;