在 Delphi TMS Web Core 网站中将文本复制到剪贴板

Question

将文本复制到剪贴板的 VCL/FMX 方式在 TMS Web Core 中不起作用。

如何将文本（字符串）复制到 Delphi TMS Web Core 网站中的剪贴板？

Answer 1

在 TMS Web Core 中将文本复制到剪贴板有多种方法：

---

1. TWebClipboard（非可视组件）

将

TWebClipboard

组件添加到您的表单中，然后您可以通过运行以下命令将文本复制到其中：

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

---

2. TWebClipboard自定义方法

您可以创建自己的过程来创建和使用

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;