Fenster erscheinen und wieder verschwinden lassen

[rawsoul]

Hier mal meine Notifier-Popup-Version, vielleicht kann ja wer etwas damit anfangen

Delphi-Quellcode:

var
  Form1: TForm1;
  showpopup:boolean = false;
  time:integer = 0;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.left:=screen.width-form1.width;
  form1.top:=screen.Height-28;
  form1.Height:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if showpopup=true then
    if form1.height<50 then
      begin
        form1.height:=form1.Height+5;
        form1.top:=form1.top-5;
      end else
    else
      if form1.height>0 then
        begin
          form1.Height:=form1.height-5;
          form1.Top:=form1.top+5;
        end;
  inc(time);
  if time=1000 then
    begin
      showpopup:=not showpopup;
      time:=0;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showpopup:=false;
  time:=0;
end;

//Edit: aufgeräumt x_X