Procedure TForm1.FormCreate (Sender: TOBJECT); Begin Form1.top: = Screen.Height; Form1.Left: = Screen.width - Form1.Width; System.Nabled: = True;
Procedure TForm1.SysTmrTimerTimer (Sender: TObject); // SysTmrTimer is TimerBegin // Interval attribute set to 10 ... Form1.Top: = Form1.Top - 1; If Form1.Top = Screen.Height - Form1.Height Then SysTmrTimer .Enabled: = false;
End.
By this article, you can make more effects ... Gradient, transparent ... http://blog.9cbs.net/greatsupersoyOnc/archive/2004/07/23/50326.aspx