如何把一个Panel从一个位置按住称动另外一个位置

Question

可以增加一个标志～～
当Panel的MouseDown时使此标志为True～
当Panel的MouseUp时使此标志为False～
然后在Panel的MOuseMove里面～～判断
如果此标志为True～则进行一些移动处理～～也就是设置Panel的Left，Top等属性～～

Answer 1

Panel的MouseDown这么写
procedure TForm1.panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  releasecapture;
  Tcontrol(sender).Perform(WM_syscommand, $F012, 0)
end;其实对于button指过来也一样