摘要： 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TMyShape = class(TShape) protected ... 阅读全文

摘要： 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPane... 阅读全文

摘要： BeginPath、EndPath 是一组 GDI 图形命令的开始与结束, 在 ExtCtrls 单元有用到. 这里有例子: http://www.cnblogs.com/del/archive/2008/05/23/1206126.html 阅读全文

摘要： BeginPaint、EndPaint 是必须同时出现的一对函数, 表示绘图开始与结束, 应该在处理 WM_PAINT 消息是出现. 以下单元在处理 WM_PAINT 消息时都有用到: ComCtrls, Controls, dbcgrids, DBCtrls, dblookup, Forms, OleCtrls 阅读全文

摘要： Delphi 在 SysUtils 单元定义 Beep 方法, 可以发出一个声音, 一般用于提醒和调试. Beep 其实是调用的 API 函数: MessageBeep(MB_OK); MessageBeep 有下面几种用法可以调用几种不同的声音文件: MessageBeep(MB_OK); MessageBeep(MB_ICONHAND); MessageBeep(MB_ICONQUEST... 阅读全文

摘要： Delphi 2009 有了pngimage、GIFImg 单元, 可以直接使用 png 和 gif 图片了; 如果是设计时给 TImage 装载 png 图片, Delphi 会自动调用 pngimage 单元完成加载, 那动态调用呢? 当然首先要uses pngimage, 然后: unit Unit1; interface uses Windows, Messages, SysUt... 阅读全文

摘要： BeginDeferWindowPos 和 DeferWindowPos、EndDeferWindowPos 是一组一起使用的函数, 可对一组窗口的位置、大小、Z 序等进行调整, 在 ExtCtrls 单元有用到. 下面先用常规方法实现对 Panel1 中的一组 Button 进行调整, 然后再用上面三个函数重新实现. 本例效果图: 代码文件: unit Unit1; interfac... 阅读全文

摘要： AlphaBlend 是指定图像混合透明的函数, 在 Graphics、GraphUtil、RibbonStyleActnCtrls 单元用到. 下面的测试是把一张图片显示在窗体, 并可以调整透明度. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr... 阅读全文

摘要： AdjustWindowRectEx 用在了 Forms、DBCtrls 单元. AdjustWindowRectEx 可以根据窗口样式获取的边缘尺寸. 测试: var R: TRect; begin SetRect(R, 0, 0, 0, 0); {此矩形不是全局变量, 需要初始为空} AdjustWindowRectEx(R, ... 阅读全文

摘要： AdjustTokenPrivileges 函数应用在 IdGlobalProtocols 单元, 暂不理解. 阅读全文