想在程序中让窗口连续移动(20分)

J

jhb

Unregistered / Unconfirmed
GUEST, unregistred user!
好象用Ttimer 和 窗口左上角坐标 就可以了,
但具体如何实现?(要原程序)
特请教诸位
 
D

delphi fan2

Unregistered / Unconfirmed
GUEST, unregistred user!
OnTime
begin
left:=left+Offset;
endl;
不过这个方法不好,有闪烁感!
 
H

huiyugan

Unregistered / Unconfirmed
GUEST, unregistred user!
你可用API函数:MOVEWINDOW(HWND:INTEGER,
X:INTEGER ,
Y:INTEGER, //移动到的点
WIDTH:INTEGER,
HEIGHT:INTEGER,//移动后窗体的宽和高度
BOOL:LONGBOOL);
你可以用一数组存放好你要移动的点的轨迹(或者通过对X,Y偏移来实现),再
利用一TIMER组件来实现;
OK?祝好运!
 
J

jhb

Unregistered / Unconfirmed
GUEST, unregistred user!
几天没上网(WINDOWS98又闹情绪了),发现两位大虾以回答,
都可用,每人送上10分,了表寸心!
谢了!!
 

Similar threads

S
回复
0
查看
730
SUNSTONE的Delphi笔记
S
S
回复
0
查看
612
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部