摘要： 本例效果图: 新建一个控制台程序, 贴入下面代码即可运行: program Project1; uses Windows, Messages; {等待调用的过程, 用于在窗体上绘制文本} Procedure OnPaint(h: HDC); const s = 'CodeGear Delphi 2007'; begin TextOut(h, 10, 10, PChar(s),... 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2008/04/07/1134178.html#1141173 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;... 阅读全文

摘要： //使用 PChar^ var p: PChar; begin p := PChar('abcd'); ShowMessage(p); {abcd} ShowMessage(p^); {a} p := p + 2; ShowMessage(p^); {c} Dec(p); ShowMessage(p^); {b} ShowMessage(p)... 阅读全文

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

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

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

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

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

摘要： GetOpenClipboardWindow: HWND; {} GetPriorityClipboardFormat( var paFormatPriorityList; {} cFormats: Integer {} ): Integer; {} IsClipboardFormatAvailable( format: UIN... 阅读全文

摘要： function LoadMenu( hInstance: HINST; {} lpMenuName: PChar {} ): HMENU; {} function LoadMenuIndirect( lpMenuTemplate: Pointer {} ): HMENU; {} function GetMenu( hW... 阅读全文