如何实现窗体走动(游动);(36分)

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #1

我实现可以让窗体在桌面走动？想制作类似小精灵那种，在网络上下载的一个源码，
可代码写得太乱了，下面是我写的上下游动，便可惜的是，不自然？大侠们有没有更好的办
法呢！
if form1.Top >1 then

form1.Top:=form1.Top-1
else
if form1.Top =1 then

form1.Top:=form1.Top-1-form1.Height
else
if form1.top<0 then

form1.Top:=800-form1.Height;
//-----------------------------------
希望不分辩率不一样时也可以正常使用；也就是有的是800*600 有的是1024*768
有相关的控件更好（方便）；

 

S

sherman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #2

移动的方向应该是用随机函数处理,其他你做的没有问题,屏幕的尺寸是可以获得的
,最简单可以从TScreen中获得

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #3

看来是有这方面的大侠，有没有源码，给一点吧，这样我们这些初学都更好理解

 

I

iapollo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #4

用API函数SetWindowPos就可搞定！

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #5

SetWindowPos第一次听到
TScreen第三次听到

不会用，：（

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #6

各大侠，真的很急，我现在是没有分数了，不然我真想用500分来请这个问题

 

B

BreathSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-29

• #7

去下个DELPHIX里面有控件