如何清空剪切板的内容？DELPHI中如何调用啊，给个例子，谢谢了。

8 个解决方案

#1

Delphi的clipbrd.pas单元中定义了一个类TClipboard，它封装了Windows剪贴板，简化了大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard，该函数用于返回TClipboard对象实例，使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboard对象的几个常用的方法和属性的简单介绍。

     方法：

     Assign：将指定的对象放入剪贴板中。

     Open：打开剪贴板，防止其他程序改写剪贴板。在向剪贴板加入多项数据时尤其有用。

     Close：关闭剪贴板。应该与打开剪贴板成对使用。

     Clear：清空剪贴板。

     GetAsHandle：返回剪贴板中指定格式数据的句柄。使用前必须打开剪贴板。

     GetComponent：返回剪贴板中的一个控件。Delphi自己使用得多。

     HasFormat：查询剪贴板中是否有指定格式的内容。

     属性：

     AsText：用于读写剪贴板文字内容。

     FormatCount：读剪贴板中数据格式的种数。

     Formats：返回剪贴板中各种格式的列表。

#2

有例子吗？谢谢啊。

#3

implementation
uses clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
begin
Clipboard.Clear;
end;

#4

procedure TForm1.Button1Click(Sender: TObject);
var Clipboard:TClipboard;
begin
Clipboard:=TClipboard.Create;
Clipboard.Clear;

end;

#5

这么简单？不是吧

#6

就是这么简单，不然怎么叫RAD，

#7

uses clipbrd;

Clipboard.Clear;

#8

procedure TForm1.CutClick(Sender: TObject)；
begin
  Memo1.CutToClipboard;
end;　

procedure TForm1.CopyClick(Sender: TObject);
begin
  Memo1.CopyToClipboard;
end;　

procedure TForm1.PasteClick(Sender: TObject);
begin
  Memo1.PasteFromClipboard;
end;　

procedure TForm1.ClearClick(Sender: TObject);
begin
  Memo1.clear;
end;　

#1

#2