Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Fenster über Taskleiste einblenden
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)
|