Delphi 怎样查看剪贴版的内容 - Delphi论坛

编程论坛 → 开发语言 → 『 Delphi论坛』 → Delphi 怎样查看剪贴版的内容

标题：Delphi 怎样查看剪贴版的内容

只看楼主

hackergirl

等　级：新手上路
帖　子：71
专家分：0
注　册：2008-3-18

楼主

问题点数：0 回复次数：1

Delphi 怎样查看剪贴版的内容

我在窗体中放一个Memo控件.一个按钮,
点击按钮,Memo控件就显示出剪贴版的内容.
代码怎样写呢?

搜索更多相关主题的帖子: Delphi　剪贴　

2008-06-08 13:55

makebest

等　级：蝙蝠侠
威　望：3
帖　子：658
专家分：962
注　册：2005-3-17

第 2 楼

得分:0

uses Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
  btn : TButton;
begin
  if Clipboard.HasFormat(CF_TEXT) then
  begin
    Memo1.Text := Clipboard.AsText;
  end;
end;

2008-06-12 09:05

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-218225-1-1.html