delphi tms web core 复制内容到剪切板

本文整理自网络，侵删。

 首先需要用到：http://www.clipboardjs.cn/

clipboard.js
现代化的拷贝文字
不依赖flash, 不依赖其他框架，gzip压缩后只有3kb大小

index.html 引用： 

webmemo1  getElementById设置为：txt1
WebButton1 getElementById 设置为：copy

procedure TForm1.WebButton1Click(Sender: TObject);
begin
asm
      var clipboard = new ClipboardJS('#copy', {
        text: function() {
            return document.getElementById('txt1').value;
        }
    });

    clipboard.on('success', function(e) {
      //  layer.msg('复制成功！');
    });

    clipboard.on('error', function(e) {
     //   layer.msg('复制失败！');
    });
end;
end;

没有啥原创不原创，随便转载分享 ---- delphitop.com
 

相关阅读 >>

Delphi 字符串操作之格式化

Delphi 隐藏 tpagecontrol 的标签方法

Delphi按下esc键就退出程序

Delphi 获取系统桌面大小

indy10下的tidhttp控件获取源码乱码的解决方法

Delphi释放内存一般这么写

Delphi 如何将字符串中的半角字符转换为全角字符

Delphi 刷新系统桌面图标缓存

Delphi adoquery判断插入的值是否重复

Delphi playsound()函数应用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi tms web core 复制内容到剪切板