Как перемещать кнопку по форме при помощи мыши?
Как перемещать кнопку по форме при помощи мыши?
Как перемещать кнопку по форме при помощи мыши? Практически для любого компонента на форме: procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; Button2.perform(WM_SysCommand,SC_DragMove,0); end;