在运行时移动控件

 
在运行时移动控件
 
在运行时移动控件
 
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
   Begin
   ReleaseCapture;
   Button1.perform(WM_SysCommand, SC_DragMove, 0);
   End;
end;




你可能感兴趣的:(移动)