设置行高时报错 grid out of index

[amtywyz]

使用控件：ehlib 5.2
在使用代码
TStringGrid(DBGridEh1).RowHeights[1] = 50
时，一直报错
确定原表内有数据行10条。
使用dbgrideh,adoquery,关联无误。
以上错误有人能帮我下么？

[luo000102]

TStringGrid(DBGridEh1).RowHeights[1] := 50
delphi 的赋值符号是':='而不是'='

[弘石]

是不是还没有加载数据就设置行高了？

[amtywyz]

已经打开了，设置行高的代码段是在cellclick 里的

我的目的是，在点中某列时，行高变化，离开此列，行高变回来

二楼的错误是我贴代码的时候手误。。。

请求帮助

[弘石]

看看是不是真的越界了，下标从0开始还是从1开始

[amtywyz]

to 4 楼：我要设置行高，不是列宽
to 5 楼：就是在设置的时候提示越界
to 6 楼：下面设置为0的话，会提示内存读取错误。

[amtywyz]

不知道是不是控件问题，以前用ehlib 3.6的时候是可以使用的，换了5.2后就报错了。
但是5.2的标题栏删选都是我现在需要的，表内树状结构也是我现在需要的，所以不想换回旧版本了。
求高手解决问题，加分

[kye_jufei]

DBGridEH 所有列宽自动适应的实现
interface
THackDBGridEH = class(TCustomdbgrideh)
end;

procedure OptimizeGrid(AGrid: TCustomDbGridEh);

implementation
procedure OptimizeGrid(AGrid: TCustomDbGridEh);
var
i: integer;
begin
// 優化GRID的寬度
for i := 0 to TDBGridEh(AGrid).Columns.count - 1 do
THackDBGridEH(AGrid).OptimizeSelectedColsWidth(TDBGridEh(AGrid).Columns[i]);
end;

[kye_jufei]

如果是自定義行高，可以使用 RowHeight 和 RowLines 属性来指定数据行高。。。

[kye_jufei]

設置行高找找看有沒有類似DataRowHeight這樣的屬性。。。

[弘石]

那个控件不是继承自StringGrid，你那样强制类型转换会有问题的
看到那个控件不是有一个RowHeights的属性吗？

[弘石]

又看了看，发现TDBGridEh确实没有发布那个属性
你改一下源码，直接把那个属性发布为public就可以了

[taste品味]

行高这些应该是初始化做的吧