如何清空剪切板的内容?DELPHI中如何调用啊,给个例子,谢谢了。 如何清空剪切板的内容?DELPHI中如何调用啊,给个例子,谢谢了。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Delphi的clipbrd.pas单元中定义了一个类TClipboard,它封装了Windows剪贴板,简化了大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard,该函数用于返回TClipboard对象实例,使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboard对象的几个常用的方法和属性的简单介绍。 方法: Assign:将指定的对象放入剪贴板中。 Open:打开剪贴板,防止其他程序改写剪贴板。在向剪贴板加入多项数据时尤其有用。 Close:关闭剪贴板。应该与打开剪贴板成对使用。 Clear:清空剪贴板。 GetAsHandle:返回剪贴板中指定格式数据的句柄。使用前必须打开剪贴板。 GetComponent:返回剪贴板中的一个控件。Delphi自己使用得多。 HasFormat:查询剪贴板中是否有指定格式的内容。 属性: AsText:用于读写剪贴板文字内容。 FormatCount:读剪贴板中数据格式的种数。 Formats:返回剪贴板中各种格式的列表。 implementationuses clipbrd;procedure TForm1.Button1Click(Sender: TObject);begin Clipboard.Clear;end; procedure TForm1.Button1Click(Sender: TObject);var Clipboard:TClipboard;beginClipboard:=TClipboard.Create;Clipboard.Clear;end; 就是这么简单,不然怎么叫RAD, 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; 关于用一台电脑控制另一台电脑键盘的问题 第一次买书就中奖了,高兴啊! 有关打印设置的问题 大家救我呀.帮我写一条SQL查询语句 动态创建的VCL的事件怎么写? 深空 请进来接分 高手请来解答我的问题?(关于SQL及其它) 这样的SQL语句错在哪里阿。 授之鱼还是授之于渔??? 很简单,但也搞得我很头大,高手请帮助我。 如何实现程序的暂停?? 求delphi界面控件,可以达到flash效果
uses clipbrd;procedure TForm1.Button1Click(Sender: TObject);
begin
Clipboard.Clear;
end;
procedure TForm1.Button1Click(Sender: TObject);
var Clipboard:TClipboard;
begin
Clipboard:=TClipboard.Create;
Clipboard.Clear;end;
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;