■■如何做到拖动图像控件,FORM也跟着移动???■■

[ok1996]

在FORM中放有一个图像控件image,
如何做到:用鼠标拖动图像控件image时,FORM也跟着移动????

[tear_pearl]

在鼠标按下的事件里设置form的位置……

[ok1996]

如何设置呀?

[constantine]

跟处理没有标题栏的移动是一样的啊
也可以处理鼠标移动的位置啊

[windxnet]

一调语句

只要对Image控件所做的事件都认为是对标题栏的事件就可以了

具体的那个方法偶8记得了，搞定了现在手头的项目再帮你找。

[iYoung]

在鼠标按下事件中记住鼠标的当前位置（相对于屏幕而不是相对于控件）和窗体的当前位置；
在鼠标移动事件中根据鼠标的位置（屏幕位置）确定窗体的位置。

[Maconel]

在image的mousedown事件里写：
ReleaseCapture();
SendMessage(Form1->Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);

[ssyqcwj]

以下是我的程序中的移动窗口代码！其实我也是借荐别人的作法！但一定管用！
最好把MousX,MousY,MoveScreen定义在窗体类的私有部分！

void __fastcall TConnectForm::Image2MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{//鼠标按下
MousX = X;
MousY = Y;
MoveScreen = true;

}
//---------------------------------------------------------------------------

void __fastcall TConnectForm::Image2MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{//开始移动
if(MoveScreen)
{
CurrX = ConnectForm->Left - MousX + X;
CurrY = ConnectForm->Top - MousY + Y;

ConnectForm->Left = CurrX;
ConnectForm->Top = CurrY;

}

}
//---------------------------------------------------------------------------

void __fastcall TConnectForm::Image2MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{//放开鼠标按键
MoveScreen = false;


}