吾爱破解 - LCG - LSG |安卓破解|病毒分析|破解软件|www.52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 258|回复: 2
上一主题 下一主题

[求助] Delphi所见所得模式剪贴板怎么转?

[复制链接]
跳转到指定楼层
楼主
冥界3大法王 发表于 2019-5-15 23:21 回帖奖励
吾爱破解


自己用Delphi 10.3.1 临时想到的办法  
最后发现,还有一个问题没解决,这样得到的是源码的,不是 所见所得模式下的,所以问题来,如何转换输出到剪贴板?

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

沙发
307677814 发表于 2019-5-16 09:26
意思是把富文本或者MD内容复制到剪切板吗?  

这是两个不同而又单独的内容,用API复制其中的一项到剪切板,API :https://blog.csdn.net/dyllove98/article/details/9005278
3#
 楼主| 冥界3大法王 发表于 2019-5-16 10:51 |楼主
307677814 发表于 2019-5-16 09:26
意思是把富文本或者MD内容复制到剪切板吗?  

这是两个不同而又单独的内容,用API复制其中的一项到剪切 ...

不会弄,最后用了人家的RichViewEdit来解决的
[Delphi] 纯文本查看 复制代码
function TForm1.GetHypertextStyleNo(StyleNo: Integer): Integer;
var
  fi: TFontInfo;
begin
  fi := TFontInfo.Create(nil);
  fi.Assign(RVStyle1.TextStyles[StyleNo]);
  fi.Color := clBlue;
  fi.Style := fi.Style + [fsUnderline];
  fi.Jump := True;
  Result := RVStyle1.FindTextStyle(fi);
  fi.Free;
end;


[Delphi] 纯文本查看 复制代码
procedure TForm1.Label1Click(Sender: TObject);
begin
  RichViewEdit1.ClearAll;
  RichViewEdit1.AddNL(Edit1.Text, GetHypertextStyleNo(0), -1, Edit2.Text);
  RichViewEdit1.Format;
  RichViewEdit1.SelectAll;
  RichViewEdit1.Copy;
end;
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则 警告:禁止回复非技术或与主题无关水贴,违者重罚!

快速回复 收藏帖子 返回列表 搜索

RSS订阅|小黑屋|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2019-5-21 05:59

Powered by Discuz!

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表