东子的博客

Android和IOS下的剪贴板var lClipboardService: IFMXClipboardService; s: string;begin if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, IInterface(lClipboardService))

FireMonkey下的实现窗口拖放，之前调用windows api的方式就不大好用，它提供了一种更方便的方式，在一个组件的MouseDown事件中调用StartWindowDrag方法即可，我用Layout的MouseDwon事件，当时Layout的MouseDwon事件默认是无效的，需设置它的HitTest为True才可。

IOS下usesPosix.Stdlib;procedure TForm1.btnStartClick(Sender: TObject);begin  _system(PAnsiChar('open http://127.0.0.1:8001'));end;uses Apple.Utils;procedure TForm2.btnStartClick(Se

图片缩放FM的TBitmap增加了CreateThumbnailhttp://docwiki.embarcadero.com/Libraries/XE2/en/FMX.Types.TBitmap.CreateThumbnailTBitmap.CreateThumbnail(200,200);