如何拖动整个窗体？

[flyingmyself]

用消息欺骗可以实现拖动没有标准栏的窗体，但是如果我在这个窗体上加一幅图片，
如何实现？

[flyingmyself]

////???????

[newpowersky]

个人认为是一样的啊??

只要把消息移动处理放在那个图片上应该就可以了啊!!! (个人意见)

[flyingmyself]

不行的

[cyongcan]

//鼠标左键单击图片同事移动鼠标,窗体会同时随着鼠标移动
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
begin
windows.ReleaseCapture;
self.Perform(messages.WM_SYSCOMMAND,$f017,0);
end;
end;

[flyingmyself]

用消息呢？
如何字定义消息？
随便一个空间？

[flyingmyself]

大虾们?
求助

[martian6125]

怎么个拖动法呀 必须用消息来解决么 小弟还没研究过系统得消息 可是要拖动窗体话 应该有简单得方法吧 你说得窗体上有图片 那个图片有多大呀 是动态产生的？覆盖整个窗体么？你能说的具体一点么

[martian6125]

声明全局变量 bool move; int old_x1,old_y1;
void __fastcall TForm1::LabelDateMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button==mbLeft)
{
old_y1=Y;
old_x1=X;
move=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LabelDateMouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
if(move)
{
Form1->Left+=X-old_x1;
Form1->Top+=Y-old_y1;
}
}
void __fastcall TForm1::LabelDateMouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{ move=false;}

这段代码是拖动窗体上的LabelDate 使得整个窗体移动 你说的是这个意思么