Delphi XLgrid 动态创建下拉框列

Delphi XLgrid 动态创建下拉框列

由于自己要用XLgrid 实现excel导入，但是有一些列想动态设置为 下拉框，并且能自动填充设置的东西。

百度网上资料都没有找到。自己琢磨了一天，看了看源码，终于试出来了。在此分享给大家。----可乐

Delphi  XLGrid 动态创建列  动态设置  formatCell属性。

 

 

比如 要设置1行1列的格子为 下拉框

 

要用到XLManager 这个对象 不用创建直接用就可以，内置的吧。里面存放有cell class 下拉的内容

XLManager.CellClasses[i]  (这里i是0~10)里面有十一个 内容 就是 string strings.......等

 

1、我们要设置为下拉框第一步就是设置

XLS1.CellClasses[1,1] := XLManager.CellClasses[1];  // 1 表示取strings

设置完这个，Edit Class 在Cell Class 为strings时候 下拉选项有3个选择

2、所以我们代码设置这样写

XLS1.Cells[1,1].Editor :=2;   // 0 memo 1 pickedit 2 Combobox

 

最终我们就可以看到成果了。

PS：这两个方法可以动态创建或者改变表格时，不抖动。

XLS1.BeginUpdate;  

XLS1.EndUpdate

小弟献丑了，希望各位大佬们能多多分享技术，作为一个delphier 

看到现在delphi 的萧条实在伤心，其它语言很多功能其实delphi都可以实现而且更加高效，只是没人了解，希望大家共同努力，分享技术，让delphi再次辉煌。