Fenster erscheinen und wieder verschwinden lassen

[bundy]

Hmm zu langsam....
aber ich post es.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  ticker:integer;
  Flag:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
AlphaBlendValue:=0;
ticker:=0;
Flag:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
if (Flag = 0)  then
begin
  Form1.AlphaBlendValue:= ticker ;
  Inc(ticker);
end;
if ticker <= 0   then Flag := 0;
if ticker >= 255 then Flag := 1;
if (Flag=1) then
begin
    Form1.AlphaBlendValue:= ticker ;
    dec(ticker);
end;


end;

end.