最近项目涉及一些复杂表格显示的实现,尝试使用Dev Express的cxGrid控件多次还是没法实现想要的效果,后来发现,TMS开发组件包的TAdvStringGrid可以实现效果。这里举例来说明一下,例如,需要实现如下效果:

如上所示是一个3行4列的表格,其中,第一行的1、2列合并,第2行的2、3列合并,下面使用TAdvStringGrid来实现,步骤如下:

1. 新建一个VCL窗口项目,布局界面

添加TAdvStringGrid控件,默认它是一个5列10行的空白表格,这里需要自定义数据,这里修改它的ColCount和RowCount属性为0,但是,默认还是一个1列1行的空白表格,这里可以不用理会。

按钮"显示数据"点击后,就显示如上效果的表格。

2. 实现如上Excel表格展示效果

procedure TForm1.btn1Click(Sender: TObject);

var

count: Integer;

begin

//

AdvStringGrid1.ColCount := 0;

AdvStringGrid1.RowCount := 0;

// 初始化行列 (3行4列)

for count := 0 to 1 do // 因为第一行是表格头,因此就2行,从0开始数,所以为2-1=1,行与列一样的道理。

begin

AdvStringGrid1.AddRow;

end;

for count := 0 to 2 do

begin

AdvStringGrid1.AddColumn;

end;

AdvStringGrid1.MergeCells(0, 0, 2, 1);

AdvStringGrid1.Cells[0, 0] := '1';

AdvStringGrid1.Cells[2, 0] := '2';

AdvStringGrid1.Cells[3, 0] := '3';

AdvStringGrid1.MergeCells(1, 1, 2, 1);

AdvStringGrid1.Cells[0, 1] := '4';

AdvStringGrid1.Cells[1, 1] := '5';

AdvStringGrid1.Cells[3, 1] := '6';

AdvStringGrid1.Cells[0, 2] := '7';

AdvStringGrid1.Cells[1, 2] := '8';

AdvStringGrid1.Cells[2, 2] := '9';

AdvStringGrid1.Cells[3, 2] := '10';

end;

运行如下:

效果实现。

其他的TMS组件可以自己再尝试使用即可。

delphi html 表格控件,Delphi之TMS开发组件包-TAdvStringGrid表格控件相关推荐

  1. 【storybook】你需要一款能在独立环境下开发组件并生成可视化控件文档的框架吗?(一)

    storybook 介绍 入门 说说用法 prop-types .stories.jsx 下一篇: https://blog.csdn.net/tuzi007a/article/details/129 ...

  2. 【storybook】你需要一款能在独立环境下开发组件并生成可视化控件文档的框架吗?(三)

    storybook 插件addons 核心插件 插件API argTypes 写文档 组件注释法 MDX 生成在线可视化UI文档 上一篇: https://blog.csdn.net/tuzi007a ...

  3. 【storybook】你需要一款能在独立环境下开发组件并生成可视化控件文档的框架吗?(二)

    storybook 回顾 继续说说用法 配置文件介绍 回顾 上篇博客地址: https://blog.csdn.net/tuzi007a/article/details/129192502 说了部分用 ...

  4. 计算机等级delphi取消,计算机二级DELPHI控件:DELPHI过滤记录的实现方法

    所谓过滤就是从表中选取满足特定条件的部分记录.过滤记录首先要通过Filter.属性设置过滤条件,然后将Filtered属性设置为True,即可从数据集组件连接的表中过滤出满足条件的记录. 1.Filt ...

  5. 【delphi】开发微信小程序后台控件(一)(含源代码、演示程序、控件使用帮助)

    1. 前言 微信小程序已经非常普及,但是遗憾的是官方提供的 SDK 等没有Delphi语言的,这样使用Delphi语言开发微信小程序后台就相对比较困难,需要研究平台API,费时费力,特别是调试API很 ...

  6. AlphaControls 控件Delphi使用

    AlphaControls 控件Delphi使用 一.AlphaControls初始化(MainFrm加入AlphaControls) 1.制定ini文件 procedure WriteIni_Ski ...

  7. 根据从日期控件选定的时间以表格形式显示数据_VB项目开发FlexGrid控件使用讲解...

    FlexGrid控件使用介绍 大家好,在VB开发管理系统中,FlexGrid控件使用是非常普遍的.用FlexGrid ActiveX控件可以在 Visual Basic的窗体中创建一个电子数据表格,也 ...

  8. ESP32 开发笔记(四)LVGL控件学习 Table 表格控件

    先看效果,创建一个简单的表格 开发板购买链接https://item.taobao.com/item.htm?spm=a2oq0.12575281.0.0.50111deb2Ij1As&ft= ...

  9. 常用控件产品官方文档/手册/API列表 c#控件文档API列表 asp.net控件产品技术文档中文版...

    .netCHARTING报表图表控件 文档帮助手册  Ab3d.PowerToys 文档帮助手册  Ab3d.Reader3ds 文档帮助手册  ABViewer 文档帮助手册 (工程图纸文档管理系统 ...

最新文章

  1. pythonbyte连接_Python3之字节串bytes与字节数组bytearray的使用详解
  2. 苹果iPhone被曝跟踪用户位置信息(图)
  3. POJ2446【建图建图】
  4. redhat7.0配置网卡
  5. vuejs目录结构启动项目安装nodejs命令,api配置信息思维导图版
  6. 《架构之美》阅读笔记四
  7. 为什么要用 redis/为什么要用缓存
  8. linux系统 个人使用情况,个人使用Linux操作系统常要做的事
  9. 并发-分布式锁质量保障总结
  10. Luogu1640 连续攻击游戏
  11. Mac Vmware Fusion在虚拟机中共享文件夹
  12. SpringBoot中注册Servlet三大组件
  13. Eclipse汉化插件
  14. 跨链项目Cosmos主网升级提案已开启投票 目前投票率为19.10%
  15. Linux-awk直接修改原文件
  16. NYOJ845 - 无主之地1
  17. MySQL docker yml 3_分享一个mysql的docker-compose.yml
  18. 数电5_3——边沿触发的触发器
  19. java发包工具_小米范工具系列之四:小米范HTTP批量发包器
  20. 最好的Vim学习教程-Vim Adventures 全攻略(附彩蛋)

热门文章

  1. win7升级Win10之360百度等升级助手均因系统未激活不可升级
  2. C语言的输入输出模型
  3. 最爱张爱玲 :在这个世界上,总有一个人是等着你的!
  4. isdigit( )函数的作用
  5. 浏览器小知识之欧朋(Opera)浏览器
  6. AD18 导出装配图的一种方法
  7. java什么地方要用深拷贝,关于 Java 浅拷贝、深拷贝,你真的知道了吗?
  8. JavaScript 高级程序设计第二章
  9. 基于谷歌油猴脚本观看视频
  10. ArcMap中饼图显示数值的方法