StringGrid 实例1：初始化StirngGrid的首行和首列
2024-08-25 03:25:26
实例1：初始化StirngGrid的首行和首列
// 主要代码部分：
procedure TForm23.SetSGridTitle(Sender: TObject);
var
ColIndex, RowIndex: integer;
begin
//画第一行（标题栏）
for colIndex := 1 to StringGrid1.ColumnCount do
begin
StringGrid1.Cells[colIndex, 0] := '列名' + Chr(ord('A') - 1 + colIndex);
end;
//画第一列（数字栏）
StringGrid1.Columns[0].Width := 30;
StringGrid1.Cells[0, 0] := '序列';
for RowIndex := 1 to StringGrid1.RowCount - 1 do
begin
StringGrid1.Cells[0, RowIndex] := IntToStr(RowIndex);
end;
end;
最新文章
- [转] js实现html table 行，列锁定
- 关于DOM
- angular常见坑洞
- C++学习23 虚函数详解
- 用physdiskwrite在VMware虚拟机上安装m0n0wall【转】
- hdu 2222 Keywords Search ac自己主动机
- Android-隐式Intent
- Linux进程阻塞的相关知识
- 解决Charles Response 中文乱码
- opencv----(1) mat最好用，和IplImage,cvmat 比较
- Magicodes.WeiChat——V3.0（多租户）版本发布
- EF优化之启动预热
- 使用Hexo在github上搭建个人博客
- css布局------上下高度固定,中间高度自适应容器
- SpringBoot整合日志
- CI框架 -- 文件结构
- 剑指offer面试题19 二叉树的镜像
- python初步学习-python模块之 os
- Java中的哈夫曼树
- 01 lucene基础 北风网项目培训 Lucene实践课程 系统架构