本文整理自网络，侵删。
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;
相关阅读 >>
Delphi的unicode与gb2312转转换,汉字unicode转gb2312
Delphi2010 图片格式转换bmp, png,jpeg, gif, tiff , wmphoto
indy 中idhttp元件出现http status 302错误
更多相关阅读请进入《Delphi》频道 >>
