Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: Fenster über Taskleiste einblenden

  Alt 13. Nov 2010, 17:56
Fake, aber vielleicht trotzdem?
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
begin
    Height := 0;
    left := Screen.Width - Width;
    top := Screen.Height;
    Timer2.enabled := false;
    Timer1.enabled := true;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
   Timer1.Enabled := false;
   Timer2.Enabled := true;
end;

procedure TForm2.Timer2Timer(Sender: TObject);
begin
   if Height > 300 then Timer1.Enabled := false
   else
    begin
      LockWindowUpdate(Handle);
      try
        Height := Height + 5;
        top := Screen.Height - Height;
      finally
        Lockwindowupdate(0);
      Application.BringToFront;
      end;
    end;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat