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

摘要： 创建 EMF 文件, 并同时绘制在窗体. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton;... 阅读全文

摘要： EMF 文件是 Windows 下的增强图元文件, 本例用最简单的代码创建了一个 EMF 文件. CreateEnhMetaFile( DC: HDC; {所参照的 DC, 为 0 表示参照当前的显示设备} FileName: PChar; {文件名, 为 nil 表示创建内存文件} Rect: PRect; {外接矩形(单位是 0.1 毫米), 为 nil ... 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2008/06/04/1101970.html#1217512 StringOfChar 是反复 "字符" 成 "字符串" 的函数; DupeString 是反复 "字符串" 成 "新字符串" 的函数; StringOfChar 来自 System 单元, 可以直接使用; DupeString 来自 StrUtils... 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2008/03/12/1101970.html#1217514 Memo1 的 Lines 属性是一个 TStrings 对象, TStrings.Append 就是调用的 TStrings.Add, 所以它们没有区别; 请用 "Ctrl+鼠标左键" 看看源码, 如下图: 阅读全文

摘要： 这不是个确定的值, 它和设备的分辨率相关. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sende... 阅读全文

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

摘要： 相似函数: ScaleWindowExtEx、ScaleViewportExtEx 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type... 阅读全文

摘要： 尽管使用 TIniFile 类很方便, 但我觉得还是用系统 API 操作更顺手, 读写各只需要一行代码, 也不用 uses IniFiles. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dial... 阅读全文

摘要： 相关函数: OffsetViewportOrgEx 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls; type TF... 阅读全文