请问Delphi XE2 （注意是FireMonkey HD 窗体，不是XE2中的VCL窗体）如何实现无边框窗体的鼠标拖动？急！急！急！急！请高手给答案！

请问Delphi XE2 （注意是FireMonkey HD 窗体，不是XE2中的VCL窗体）如何实现无边框窗体的鼠标拖动？急！急！急！急！请高手给答案！
这个可以有，但目前无法有，不是是否真的可以有，如何有？请高手赐教。为感！

3 个解决方案

#1

这个原生支持
OnMouseDown事件
  StartWindowDrag;

#2

非常感谢楼上！真是速度这么快呀！

#3

DELPHIXE的版本不，关注一下