Question

Delphi XE2 ，FireMonkey窗口中，若何实现点住某个控件来拖动窗口？求大神帮助

若以下回答无法解决问题，邀请你更新回答

Answer 1

1begin if Button = mbLeft then begin ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0); end; end;procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 本身尝尝（还可以实现无标题栏的拖动）你要实现拖拽控件上事沂攀里改变窗口地位不就行了 查看原帖>>