PerformCTRLS() 使用任意组件拖动窗体

{使用任意组件拖动窗体}
// PerformCTRLS(Form1,Button);
//放在控件的 MouseDown事件下
procedure  PerformCTRLS ( Form : TForm ; Button :  TMouseButton );
begin
   if  Button = mbLeft  then
   begin
     ReleaseCapture ;
     Form . Perform ( wm_syscommand , $F012 , 0 );
   end ;
end ;




你可能感兴趣的:(form)