用鼠标拖动窗体时让窗体随鼠标移动？

[hisofty]

一般情况下，拖动窗体时是先移动窗体的轮廓，鼠标松开后，窗体从真正移动。但可以，改变为标拖动窗体时让窗体随鼠标移动，方法是显示属性－外观－效果，选中“ 拖动时显示窗口内容“，即可，也可以给api函数SystemParemetersInfo传递SPI_SETDRAGFULLWINDOWS这个参数来达到目的。

我想，不论系统设置是怎样的，拖动我的窗体时都是第二种情况，不知道在什么地方调用这个函数，请教？

[Ljat]

我想問如果有二個窗體﹐怎么用鼠標拖動窗體一時候﹐窗體二也可以動。

[踏平扶桑]

我想可以设置一个布尔型数据，当点窗体后为true，然后捕捉鼠标轨迹，让窗体进行移动，当再次点击窗体后结束跟踪，不在移动

[leo4587]

不要告訴我用timer，因為偶的內存才32

[hisofty]

我想問如果有二個窗體﹐怎么用鼠標拖動窗體一時候﹐窗體二也可以動。


这个问题比较好的解决方法是拦截wm_moving,wm_move，然后移动需要跟随的窗体，就可以了，我写过的。楼上说的对，用timer控件当然不好了，浪费资源且不精确

[海牛]

嘿嘿！俺谢了一个播放器，就是这样滴！！！

[海牛]

搂住要不要俺给你一个类啊！这个类可以，满足你哦！！！:）

[flc]

关注

[hisofty]

搂住要不要俺给你一个类啊！这个类可以，满足你哦！！！:）

--------------------------------------------------------------------------------

当然需要，谢了
[e-mail]

[笨狗先飞]

没这么复杂,而且不用API就可以,只是想要有虚线框会比较麻烦
dim mx , my as single
sub form_mousedown()
mx=x
my=y
end sub

sub form_mousemove()
if button=1 then
me.left=me.left+(mx-x)
me.top=me.top+(my-y)
'上边两行的加减我记不清了,大概是这样子
'想要form2动就把代码加在这里
end if
end sub

记得大概是这个样子,去网上看看好象有代码的

[hisofty]

谢楼上的,我知道你说的方法,不过不想用,就想用个api直接了当