Make the effect of message form like Foxmail, MSN

xiaoxiao2021-03-06  61

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 is a TimerBegin / / Please set the interval property to 10 ... form1.top: = form1.top - 1; if form1.top = screen.Height - form1.Height Then System.Enabled: = FALSE; END; End. Combine this article can make more effects ... Gradient, transparent ... Procedure TFORM1.FormCreate (Sender: TOBJECT); Begin AnimateWindow (Handle, 2000 {Speed: 2 second}, aw_blend); {aw_hor_positive = $ 00000001; AW_HOR_NEGATIVE = $ 00000002; AW_VER_POSITIVE = $ 00000004; AW_VER_NEGATIVE = $ 00000008; AW_CENTER = $ 00000010; AW_HIDE = $ 00010000; AW_ACTIVATE = $ 00020000; AW_SLIDE = $ 00040000; AW_BLEND = $ 00080000;} end;

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

New Post(0)