将文本复制到剪贴板的VCL/FMX方式在TMS Web Core中不起作用。如何将文本(字符串)复制到 Delphi TMS Web Core网站的剪贴板中?
6jjcrrmo1#
将TWebClipboard组件添加到表单中,然后可以通过运行以下命令将文本复制到其中:
TWebClipboard
WebClipboard.CopyToClipboard('Your String to Copy to Clipboard');
您可以创建自己的过程来创建和使用TWebClipboard组件:
procedure CopyTextToClipboard(aText: String); var WebClipboard: TWebClipboard; begin WebClipboard := TWebClipboard.Create(self); try WebClipboard.CopyToClipboard(aText); finally WebClipboard.Free; end; end;
你可以使用JavaScript编写一个 Delphi 函数来将文本复制到剪贴板:
procedure CopyTextToClipboard(aText: String); begin asm window.navigator.clipboard.writeText(aText); end; end;
1条答案
按热度按时间6jjcrrmo1#
TMS Web Core中有多种方式可以将文本复制到剪贴板:
1. TWebtool(非可视化组件)
将
TWebClipboard
组件添加到表单中,然后可以通过运行以下命令将文本复制到其中:2. TWebNode自定义方法
您可以创建自己的过程来创建和使用
TWebClipboard
组件:3. JavaScript函数
你可以使用JavaScript编写一个 Delphi 函数来将文本复制到剪贴板: