怎样使窗体从底端自动移动到指定的位置(50分)

  • 主题发起人 主题发起人 polaris_cn
  • 开始时间 开始时间
P

polaris_cn

Unregistered / Unconfirmed
GUEST, unregistred user!
先谢谢富翁们了
 
什么意思,你要做什么
 
窗体的top和left可以用来控制窗体的位置,自己在程序中设置就行了
 
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
top:=600;
for i:=1 to 30 do
begin
top:=top-20;
sleep(200);
end;
end;
 
to:jsxjd
sleep(200)什么意思呀?
 
sleep是延时啊,不至于移动的太快
 
这个问题我也很感兴趣,那样动态移动位置的方法不可行,闪烁太厉害了!
 

Similar threads

回复
0
查看
888
不得闲
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
853
DelphiTeacher的专栏
D
后退
顶部