procedure TForm1.Button1Click(Sender: TObject);
var
CF_HTML : UINT;
clpHandle : THandle;
cf : TClipboard;
begin
CF_HTML := registerclipboardformat('HTML Format');
clpHandle := GetClipboardData(CF_HTML);
cf := TClipboard.Create;
if cf.HasFormat(CF_HTML) then
memo1.Text := cf.AsText;
end;
var
CF_HTML : UINT;
clpHandle : THandle;
cf : TClipboard;
begin
CF_HTML := registerclipboardformat('HTML Format');
clpHandle := GetClipboardData(CF_HTML);
cf := TClipboard.Create;
if cf.HasFormat(CF_HTML) then
memo1.Text := cf.AsText;
end;
博客展示了一段Delphi代码,用于在按钮点击事件中获取HTML格式的剪贴板数据。通过注册剪贴板格式,获取剪贴板数据句柄,创建剪贴板对象,判断是否有HTML格式数据,若有则将其文本显示在备忘录中。
1944

被折叠的 条评论
为什么被折叠?



