请问如何做一个逐渐移动的窗体 不要太高深,只要实现逐渐上移就可以了!希望,能用TIMER什么现成的东西做 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在TTIMER里控制form.top和form.left这个两个属性的值,让它们变化就行了 在Ttimer的事件里修改他的form的top就可以了 在timer里设interval属性再在ontimer事件里改变top属性~ 控制left和top或者 movewindow或者AnimateWindow //timer1.Interval:=100;procedure TForm1.Timer1Timer(Sender: TObject);begin if self.top>100 then self.Top:=self.Top-2 else self.Top:=300;end; timer的ontimer事件中只需控制form的top属性就可以。 movewindow用这个,,金山词霸用的就是这个函数,,,,,,明白?? stop 在timer里设interval属性,在Ttimer事件中加入如下代码: form1.top:=form1.top-n; form1.left:=form1.left+n;//n为步长。 splitter中有个小图,点后自动收缩/展开如何作 服装销售系统项目方案 想问一下,使用dxdbgrid,如何在列旁边加上数据记录的序号呢? 谁有用Delphi列出硬件设备清单的代码?急用! 谁在第二书店买国书,怎么三天了还没有送到货? delphi中函数添加的方法 简单问题。 送分基础题 请问如何使ListView可以在列表中编辑 程序运行时两个form一先一后出来,而并没有在任何一个form的onshow事件或者oncreat事件加form.show,还有没有其他的原因? 关于回调函数 为什么脱机浏览本论坛的xml文件,每个人的发言只能出来两行.
再在ontimer事件里改变top属性~
movewindow
或者AnimateWindow
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if self.top>100 then
self.Top:=self.Top-2
else
self.Top:=300;
end;
stop
在Ttimer事件中加入如下代码:
form1.top:=form1.top-n;
form1.left:=form1.left+n;//n为步长。