delphi 怎么手动让控件移动

delphi控件移动

解决方案 »

  1.   

    要在MouseMove中写事件，定义位置的时候要用与父控件的相对位置
      

  2.   

    Procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    Begin
      ReleaseCapture;
      BitBtn1.perform(WM_SysCommand, $F012, 0);
    End;
      

  3.   

    mousedown
    mousemove
    mouseup
    三个事件里都需要写代码
    计算鼠标位置，然后设置组件的left和top
      

  4.   


    请问是在 MouseDown 里判断 是否为左键点击 是的话就 BeginDrag 
    然在 MouseMove 里判断 是否在Dragging吗 
    最后在 MouseUp 里 EndDrag 吗。
    我刚学delphi  书上没说怎么移动 就简单介绍了 自动的那个