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

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

摘要： 本例运行效果图: 一般修改 TStringGrid 的 Options 直接在设计时选一下 True 或 False 就行了; 代码中可以像下面操作: StringGrid1.Options := [goFixedVertLine]; StringGrid1.Options := [goFixedVertLine, goVertLine, goColSizing]; 做完这个例... 阅读全文

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

摘要： 本例功能: 1、调整单元宽度; 2、调整单元高度. 运行效果图: //本例代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids; type TFo... 阅读全文

摘要： 须知: TStringGrid 的每行、每列都是一个 TStrings 对象. 本例功能: 1、分别按列与行修改; 2、分别按列与行读取 运行效果图: //本例代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Di... 阅读全文

摘要： 本例功能: 1、修改 StringGrid 单元的默认宽与高; 2、添加行和列; 3、确认当前单元并赋值. 运行效果图: //本例代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ... 阅读全文

摘要： 本例功能: 1、获取 StringGrid 的行数、列数; 2、给单元赋值. 运行效果图: //示例代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids... 阅读全文

摘要： 动画剧本: 通过虚拟屏幕调整窗体运行后的位置; 鼠标对对虚拟屏幕双击放大、再单击会复原; 可以调整对虚拟屏幕的大小; 可以关掉或打开这个虚拟屏幕. 阅读全文

摘要： //Char 类型与其编码值的转换: var b: Byte; c: Char; begin b := Ord('A'); {返回: 65} b := Ord(#65); {返回: 65} b := Ord($41); {返回: 65} b := Ord(#$41); {返回: 65} b := Byte('A'); {返回: 65} b := ... 阅读全文