在 Delphi TMS Web Core网站中实现文本复制

wecizke3  于 2023-10-18  发布在  其他
关注(0)|答案(1)|浏览(82)

将文本复制到剪贴板的VCL/FMX方式在TMS Web Core中不起作用。
如何将文本(字符串)复制到 Delphi TMS Web Core网站的剪贴板中?

6jjcrrmo

6jjcrrmo1#

TMS Web Core中有多种方式可以将文本复制到剪贴板:

1. TWebtool(非可视化组件)

TWebClipboard组件添加到表单中,然后可以通过运行以下命令将文本复制到其中:

WebClipboard.CopyToClipboard('Your String to Copy to Clipboard');

2. TWebNode自定义方法

您可以创建自己的过程来创建和使用TWebClipboard组件:

procedure CopyTextToClipboard(aText: String);
var
  WebClipboard: TWebClipboard;
begin
  WebClipboard := TWebClipboard.Create(self);
  try
    WebClipboard.CopyToClipboard(aText);
  finally
    WebClipboard.Free;
  end;
end;

3. JavaScript函数

你可以使用JavaScript编写一个 Delphi 函数来将文本复制到剪贴板:

procedure CopyTextToClipboard(aText: String);
begin
  asm
    window.navigator.clipboard.writeText(aText);
  end;
end;

相关问题