能不能把panel控件设成在运行时可以用鼠标拖动！

有没有那样的属性？

解决方案 »

  1.   

    任意的拖动窗口
    procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      ReleaseCapture;
      Perform(WM_SYSCOMMAND,$f012,0);
    end;
    实际上，可以封装一下上面的代码，这样以后只要在控件的MouseMown中调用下面的函数就可以实现运行的时候拖动和改变控件的大小：
    procedure DragControl(WinControl:TWinControl);
    const
      SM=$F012;
    begin
      ReleaseCapture;
      WinControl.Perform(WM_SYSCOMMAND,SM,0);
    end;
    其中，$F012可以从$F000变换到$F012，其含义分别如下：
    $F000：哎，自己测试吧！
      

  2.   

    findcsdn(findcsdn) 你的代码是拖动整个窗体。我只要拖动PANEL控件。
      

  3.   

    glmis(老基)朋友，看看人家下面那几行代码啊，那个函数 DragControl才是移动控件的。
      

  4.   

    如何调用上面的DragControl啊 ？
      

  5.   

    dragkind = dkDock
    dragmode = dmAutomatic
      

  6.   

    设置这个panel的这两个属性就行了
      

  7.   

    也可以在利用panel 的 
    mousedown[鼠标定位] 
    mousemove[改变panel left top 属性]
    事件中自己写。
      

  8.   

    楼主试过没有tpanel也是一个窗口啊。