在Delphi TMS Web Core网站中实现复制文本到剪贴板-Delphi 大神网

欢迎加入全网最大Delphi 技术交流群 682628230

在TMS Web Core中，由于其基于Web的技术栈，传统的VCL或FMX剪贴板操作方法并不适用。因此，需要使用特定的方法来实现将文本复制到剪贴板的功能。以下是几种在Delphi TMS Web Core中实现复制文本到剪贴板的方法：

方法1：使用`TWebClipboard`组件

TWebClipboard是一个非可视组件，可以直接在表单中使用。

添加TWebClipboard组件：在表单设计器中，从工具栏中拖动一个TWebClipboard组件到表单上。

调用CopyToClipboard方法：使用TWebClipboard组件的CopyToClipboard方法将文本复制到剪贴板。

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebClipboard.CopyToClipboard('Your String to Copy to Clipboard');
end;

方法2：自定义`TWebClipboard`方法

如果你不想在表单中直接使用TWebClipboard组件，可以创建一个自定义过程来实现相同的功能。

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

使用方法：

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyTextToClipboard('Your String to Copy to Clipboard');
end;

方法3：使用JavaScript函数

TMS Web Core允许直接使用JavaScript代码，因此可以通过调用浏览器的剪贴板API来实现复制功能。

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

使用方法：

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyTextToClipboard('Your String to Copy to Clipboard');
end;

方法4：使用`TWebButton`的`OnClick`事件

如果你使用的是TWebButton，可以直接在按钮的OnClick事件中调用上述方法。

delphi复制

procedure TForm1.WebButton1Click(Sender: TObject);
begin
  CopyTextToClipboard('Your String to Copy to Clipboard');
end;

用户交互要求：大多数现代浏览器要求剪贴板操作必须由用户交互（如点击按钮）触发，否则可能会失败。
权限问题：某些浏览器可能需要用户明确授权才能访问剪贴板功能。如果用户拒绝授权，复制操作可能会失败。
兼容性：虽然window.navigator.clipboard.writeText是现代浏览器的标准API，但在某些旧版浏览器中可能不可用。如果需要支持旧版浏览器，可以考虑使用第三方JavaScript库（如clipboard.js）。