怎么没有人回答吗？
有没有高手帮帮忙？

转篇贴子你参考一下

//==============================================================================

//任意摆布一个控件（拖动、放大、缩小）******************************************

//==============================================================================

procedure ManipulateControl(WinControl: TWinControl; Shift: TShiftState; X, Y, Precision: integer);//Precision:精度，该方法可以在onmousemove中调用

var SC_MANIPULATE: Word;

begin

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  //光标在控件的最左侧**********************************************************

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

       if (X<=Precision) and (Y>Precision) and (Y<WinControl.Height-Precision)

  then begin

         SC_MANIPULATE  := $F001;

         WinControl.Cursor := crSizeWE;

       end

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  //光标在控件的最右侧**********************************************************

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  else if (X>=WinControl.Width-Precision) and (Y>Precision) and (Y<WinControl.Height-Precision)

  then begin

         SC_MANIPULATE  := $F002;

         WinControl.Cursor := crSizeWE;

       end

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  //光标在控件的最上侧**********************************************************

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  else if (X>Precision) and (X<WinControl.Width-Precision) and (Y<=Precision)

  then begin

         SC_MANIPULATE  := $F003;

         WinControl.Cursor := crSizeNS;

       end

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  //光标在控件的左上角**********************************************************

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  else if (X<=Precision) and (Y<=Precision)

  then begin

         SC_MANIPULATE  := $F004;

         WinControl.Cursor := crSizeNWSE;

       end

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  //光标在控件的右上角**********************************************************

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  else if (X>=WinControl.Width-Precision) and (Y<=Precision)

  then begin

         SC_MANIPULATE  := $F005;

         WinControl.Cursor := crSizeNESW ;

       end

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  //光标在控件的最下侧**********************************************************

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  else if (X>Precision) and (X<WinControl.Width-Precision) and (Y>=WinControl.Height-Precision)

  then begin

         SC_MANIPULATE  := $F006;

         WinControl.Cursor := crSizeNS;

       end

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  //光标在控件的左下角**********************************************************

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  else if (X<=Precision) and (Y>=WinControl.Height-Precision)

  then begin

         SC_MANIPULATE  := $F007;

         WinControl.Cursor := crSizeNESW;

       end

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  //光标在控件的右下角**********************************************************

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  else if (X>=WinControl.Width-Precision) and (Y>=WinControl.Height-Precision)

  then begin

         SC_MANIPULATE  := $F008;

         WinControl.Cursor := crSizeNWSE;

       end

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  //光标在控件的客户区（移动整个控件）******************************************

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  else if (X>5) and (Y>5) and (X<WinControl.Width-5) and (Y<WinControl.Height-5)

  then begin

         SC_MANIPULATE  := $F009;

         WinControl.Cursor := crSizeAll;

       end

  else begin

         SC_MANIPULATE := $F000;

         WinControl.Cursor := crDefault;

       end;

  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  if Shift=[ssLeft] then

  begin

    ReleaseCapture;

    WinControl.Perform(WM_SYSCOMMAND, SC_MANIPULATE, 0);

  end;  

end;


调用例子:
procedure TForm_Main.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

  Caption := IntToStr(X) + '/' + IntToStr(Y);

  ManipulateControl((Sender as TWinControl), Shift, X, Y, 10);

end;

给分吧。呵呵。
ReleaseCapture是释放鼠标捕获,
WinControl.Perform(WM_SYSCOMMAND, SC_MANIPULATE, 0);是向WinControl这个控件发消息.用SendMessage(WinControl.Handle, WM_SYSCOMMAND, SC_MANIPULATE, 0)也一样.

呵呵...用API啊

我想再说明一下：
我要移动的控件不是自己程序的控件
而是其他程序（别人写好的，而且开发语言是未知的）窗体里的控件
我通过Windows API获得了该控件的句柄
现在我想实现该控件的拖放
拖放的过程及结果也是在其他程序的窗体里
所以自己的程序的各种鼠标事件（MouseDown等等）应该是不适用的
那样只能控制自己程序窗体的控件
而不是其他程序窗体里的控件

我不知道大家明白我的意思吗？
我想通过自己的程序去控制别人的程序
移动的控件在别人的程序里
所以我认为只能通过发送消息来处理
但我发送消息后并没有能实现
鼠标左键按下和释放是可以的
就是鼠标移动的时候没反应
希望高手们帮我看看到底如何发送鼠标移动消息

多谢楼上的兄弟，虽然你们结果不是我想要的
这个问题现在是本人做的项目的一个难点
希望更多的高手来帮忙解决这个问题

能得到句柄就相当不错了，楼主还想.............

to XXSingle(三笑留情〓★▲◆) 
本来客户提供的程序就是支持拖放的
我的项目就是要做一个控制平台
让用户可以在我的平台上控制客户自己的程序
现在在拖放的实现上遇到了困难
所以来求救了
以前不是看到很多高手经常在这里活跃的吗
现在怎么都不见了
是放假了么
高手们，帮帮忙啊，分不够再加

客户提供的程序支持拖放，那拖放的原理是什么？还要看客户程序是怎么实现拖放的。我觉得和这个有关系

客户端提供的程序支持拖放
也就是可以用鼠标拖放该程序的控件从一个位置到另一个位置
就像我们打开文件夹一样
里面的文件或文件夹都可以拖放
不管实现原理如何
只要我用鼠标点击拖放移动总是可以的吧
既然可以
那就应该可以通过发送消息去自动实现而不用手动去拖放
目前我是发送WM_MOUSEMOVE消息时鼠标并没有移动
这是什么原因？

能把你的那个客户程序发给我一份吗？我可以帮你试试
我的mail是
hk.barton@sohu.com