请教在Form中拖拽控件的办法

[tulipcaicai]

我想让界面上任意一个控件都可以从一点拖拽到另一点，各位达人有什么办法或例子么？

[avigdkwynw]

处理控件的OnMouseDown和OnMouseMove事件啊。

[tulipcaicai]

那如果我要Panel,Image, Memo 在 PageControl上拖拽呢？ 也在这些类型上用OnMouseDown和OnMouseMove？

[avigdkwynw]

是啊，这个是拖动Memo的代码。

//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    nOriginX = X;
    nOriginY = Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if(Shift.Contains(ssLeft))
    {
        int Offcx = X-nOriginX;
        int Offcy = Y-nOriginY;

        Memo1->Left+=Offcx;
        Memo1->Top += Offcy;
    }
}

[tulipcaicai]

谢谢啦，结贴！