Delphi 怎样查看剪贴版的内容

hackergirl 发布于 2008-06-08 13:55， 1126 次点击

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

1 回复

makebest2008-06-12 09:05

uses Clipbrd;

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