How to make the effect of message form like Foxmail, MSN

zhaozj2021-02-16  108

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

转载请注明原文地址:https://www.9cbs.com/read-13637.html

New Post(0)