Delphi FMX Listbox长按复制（移动平台）
功能
Delphi移动平台（Android & IOS） Listbox长按复制Detail内容
参考代码
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
procedure TForm1.FormCreate(Sender: TObject); //uses FMX.Platform,System.Rtti begin //初始化 TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, IInterface(FClipboardService)); end; procedure TForm1.ListBox1Gesture(Sender: TObject; const [Ref] EventInfo: TGestureEventInfo; var Handled: Boolean); //ListBox1的Touch--InteractiveGestures--LongTap要选中 begin case EventInfo.GestureID of igiLongTap: begin if ListBox1.Selected.ItemData.Detail <> '' then begin FClipboardService.SetClipboard (Tvalue(ListBox1.Selected.ItemData.Detail)); Handled := true; showmessage('已复制' + ListBox1.Selected.ItemData.Text) end; end; end; end; |
相关下载
除特别注明外，本站所有文章均为阿明工作室原创，转载请注明出处来自https://www.amingstudio.com/delphi/190.html
