RSS订阅 | 匿名投稿
您的位置:网站首页 > FMX > 正文

Delphi FMX Listbox长按复制(移动平台)

作者:admin 来源: 日期:2019/4/8 14:06:12 人气: 标签:

Delphi移动平台(Android & IOS) Listbox长按
查看更多关于 长按 的文章
复制
查看更多关于 复制 的文章
Detail内容

testLongTap
参考代码

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;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: