delphi TMS Web core 自带剪切板组件CopyToClipboard

procedure TForm4.WebButton2Click(Sender: TObject);

begin

//WebClipboard1 组件

WebClipboard1.CopyToClipboard('helloworld');

end;

// 引用单元：WEBLib.Clipboard

procedure TForm4.WebButton3Click(Sender: TObject);

 var

    Copystr: TWebClipBoard;

  begin

    Copystr:=TWebClipBoard.Create;

    Copystr.CopyToClipboard(Application.EXEName);

    Copystr.Free;

end;