Procedure TForm1.FormCreate(Sender: TObject);Begin Form1.Top := Screen.Height; Form1.Left := Screen.Width - Form1.Width; SysTmrTimer.Enabled := True;End;
Procedure TForm1.SysTmrTimerTimer(Sender: TObject);//SysTmrTimer是个TimerBegin //请将Interval属性设为10… Form1.Top := Form1.Top - 1; If Form1.Top = Screen.Height - Form1.Height Then SysTmrTimer.Enabled := False;End;
End.
结合此文章可以做出更多效果……渐变、透明什么的…http://blog.csdn.net/greatsuperyoyonc/archive/2004/07/23/50326.aspx