DelphiXE2,FireMonkey下的异形窗体拖动

Question

最近有人问过我这个问题,考虑到百度上暂时没有具体的解决方案(至少搜10页没有), 特发个帖子
http://blog.csdn.net/warrially/article/details/7951244因为 FMX 的句柄 不是 VCL 的句柄,所以需要用到
FmxHandleToHwnd() 转换一下
uses  
Winapi.Windows , Winapi.Messages,  
  FMX.Platform.Win; 这样就可以拖动啦procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;  
  Shift: TShiftState; X, Y: Single);  
begin  
  ReleaseCapture();  
  SendMessage(FmxHandleToHwnd(Handle)  , WM_SYSCOMMAND,SC_MOVE+HTCAPTION, 0);  
end; 

Answer 1

我做过fmx的异形无框拖动，没有这么麻烦的，不是有个大概叫startdrag的方法么？