Delphi XE2 ，FireMonkey窗口中，若何实现点住某个控件来拖动窗口？求大神帮助
答案:2 悬赏:60 手机版
解决时间 2021-03-15 22:29
- 提问者网友：火车头
- 2021-03-15 17:41
Delphi XE2 ，FireMonkey窗口中，若何实现点住某个控件来拖动窗口？求大神帮助
最佳答案
- 五星知识达人网友：独钓一江月
- 2021-03-15 18:00
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); 本身尝尝（还可以实现无标题栏的拖动）你要实现拖拽控件上事沂攀里改变窗口地位不就行了
全部回答
- 1楼网友：猎心人
- 2021-03-15 18:17
我。。知。。道
加。。我。。私。。聊
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯