文章展示了使用Timer控件实现窗体移动效果的代码。在FormCreate事件中设置窗体初始位置并启用Timer，在Timer的Timer事件里让窗体向上移动，当到达指定位置时停止Timer。还提到可结合此做出渐变、透明等更多效果，并给出相关博客链接。
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是个Timer
Begin
//请将Interval属性设为10…
Form1.Top := Form1.Top - 1;
If Form1.Top = Screen.Height - Form1.Height Then
SysTmrTimer.Enabled := False;
End;
End.
结合此文章可以做出更多效果……渐变、透明什么的…
http://blog.youkuaiyun.com/greatsuperyoyonc/archive/2004/07/23/50326.aspx
扫一扫
8888
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
