随笔分类 - TClipboard 类

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文

posted @ 2008-05-15 11:20 万一阅读(6802) 评论(19) 推荐(0) 编辑

使用剪切板[5]: SetAsHandle、GetAsHandle - 自定义格式

摘要：如果要在剪切板中存放自己的格式, 需要用到 SetAsHandle、GetAsHandle 两个方法. SetAsHandle(用于剪切板的格式ID, 数据的内存句柄); 看这个方法的两个参数都有点麻烦. 自定义剪切板格式要用 RegisterClipboardFormat 函数; 第二个参数是内存句柄而不是内存地址, 能分配内存并返回句柄的函数暂时我只知道 GlobalAlloc、Global... 阅读全文

posted @ 2008-04-04 23:09 万一阅读(3744) 评论(4) 推荐(0) 编辑

使用剪切板[4]: 如果把子控件一起复制? - 同时回复 ghd2004 的问题

摘要：如果连同子控件一起复制到剪切板, 需要定义一个新类型. 譬如在一个 TPanel 中包含一个 TEdit; 在复制 TPanel 时, 若要连同 TEdit 一起复制, 需要重新从 TPanel 中继承出一个类来(譬如是 TMyPanel), 把 TEdit 包含在新的类中. 运行效果图: TMyPanel 类的单元: unit MyPanel; interface uses Clas... 阅读全文

posted @ 2008-04-04 18:39 万一阅读(2636) 评论(2) 推荐(0) 编辑

使用剪切板[3]: SetComponent、GetComponent

摘要：本例演示把一个组件(TEdit)放入剪切板, 又取出(放到一个 TPanel 上)的过程. 放入剪切板的方法是个过程: SetComponent(要放入的组件); 取出的方法是个函数: GetComponent(指定属主, 指定父窗口): 函数返回取出的组件的句柄. 取出以前, 最好要判断一下当前剪切板中是不是个组件: HasFormat(CF_COMPONENT); 取出以前还必须要注册... 阅读全文

posted @ 2008-04-04 14:48 万一阅读(3810) 评论(6) 推荐(0) 编辑

使用剪切板[2]: Assign、HasFormat

摘要：准备工作: 在窗体上放置一个 TPanel; 在 TPanel 上放一个 TImage; 另外需要三个按钮. 本例效果图: 第一版代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, E... 阅读全文

posted @ 2008-04-03 22:04 万一阅读(4324) 评论(7) 推荐(0) 编辑

使用剪切板[1]: AsText、SetTextBuf、GetTextBuf

摘要：剪切板类 TClipboard 定义在 Clipbrd 单元, 使用前先要 uses Clipbrd; uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject); var clip: TClipboard; begin clip := TClipboard.Create; {建立} clip.AsText := Se... 阅读全文

posted @ 2008-04-03 17:05 万一阅读(7864) 评论(9) 推荐(0) 编辑

积分与排名

随笔分类 (2445)

随笔档案 (2145)

最新评论

随笔分类 - TClipboard 类