摘要： 这里有所有相关参数的解释: http://www.cnblogs.com/del/archive/2008/04/15/1154359.html//最大化窗口procedure TForm1.CreateParams(var Params: TCreateParams);begin inherited; Params.Style := Params.Style or WS_MAXIMIZE; ... 阅读全文

摘要： 方法1: 使用 TForm 的 BorderIcons 属性 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCr... 阅读全文

摘要： 程序中用 TPanel 做了容器, 需要给它一个背景图片; 发现这竟是个难题! 发现我经常使用的滚动箱控件 TScrollBox, 是一个很好的替代品. 本例需要先添加两个图片资源, 添加方法可以参考: http://www.cnblogs.com/del/archive/2008/08/23/1274591.html 本例效果图: 代码文件: unit Unit1; interf... 阅读全文

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

摘要： IsLetter: {是否是个字母; 范围 A..Z 与 a..z} IsUpper: {是否是个大写字母; 范围 A..Z} IsLower: {是否是个小写字母; 范围 a..z} IsDigit: {是否是个十进制数字; 范围 0..9} IsNumber: {是否是个数字符号; 范围包括 0..9, 还有 ASCII 码中的 178、179、185、188、189、190 等} ... 阅读全文

摘要： 看旧表 ID Hex 显示 类别 备注 0$0ucControl 1$1
ucControl 2$2ucControl 3$3ucControl 4$4ucControl 5$5ucControl 6$6ucControl 7$7ucControl 8$8ucControl 9$9ucControl 10$A ucControl 11$B ucCon... 阅读全文

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

摘要： 今天写了四个小函数, 拿来与大家共享: Dir2Doc: 把文件夹下的所有文件(不包括子文件夹)保存成一个复合文件; Doc2Dir: Dir2Doc 的反操作; ZipDir2Doc: 同 Dir2Doc, 只是同时执行了压缩; UnZipDoc2Dir: ZipDir2Doc 的反操作. 函数及测试代码(分别在 Delphi 2007 和 Delphi 2009 下测试通过): ... 阅读全文

摘要： 阅读全文

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