Delphi中如何实现拖曳？

我猜：在Panel的MouseEnter事件中加入获得焦点的语句，如：SetFocus

解决方案 »

  1.   

    试试这段代码procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
        Shift: TShiftState; X, Y: Integer);
    const
      SC_DragMove = $F012;  { a magic number }begin  ReleaseCapture;
      panel1.perform(WM_SysCommand, SC_DragMove, 0);
    end;
      

  2.   

    如果PANEL中有一个TREEVIEW，如何将他们做为一个整体来拖曳。
    谢谢
      

  3.   

    在Application.onmessage事件中将TreeView的SC_DragMove消息映射为Panel的SC_DragMove消息