Calling ShowModal as an Anonymous Method on All Platforms procedure THeaderFooterForm.btnPickClick(Sender: TObject); var dlg: TForm1; begin dlg := TForm1.Create(nil); // select current value, if available in the list dlg.ListBox1.ItemIndex := dlg.Lis
procedure TCustomCameraViewDoc.ShareTextClick(Sender: TObject); var FSharingService: IFMXShareSheetActionsService; begin inherited; //分享照片 TPlatformServices.Current.SupportsPlatformService(IFMXShareSheetActionsService, FSharingService); if FSharingSe
Asphyre We are happy to announce the official release of our latest framework Pascal eXtended Library. This is a new cross-platform framework that is based on our popular Asphyre framework with added support for many new platforms, including singlebo