XE5中对DBGridEh控件添加属性的有关问题
XE5中对DBGridEh控件添加属性的问题
我安装了EHLib 6.3.171版的DBGridEh控件,打开安装好的目录里面找到EhLib190.bpl控件包源代码,在DBGridEh.pas文件中做些修改,对DBGridEh控件添加些我自定义的属性,具体如下:
TDBGridEh = class(TCustomDBGridEh)下添加了
published
property FixGridlinecolor;
------
TCustomDBGridEh = class(TCustomDBAxisGridEh, IMTEventReceiverEh)
private
FFixGridlinecolor: TColor;
Procedure SetFixGridlinecolor(Value: TColor);
property FixGridlinecolor: TColor Read FFixGridlinecolor
Write SetFixGridlinecolor default clDefault;
-----
procedure TCustomDBGridEh.SetFixGridlinecolor(Value: TColor);
begin
if FFixGridlinecolor <> Value then
begin
FFixGridlinecolor := Value;
Invalidate;
end;
end;
这样加了后,编译EhLib190.bpl包文件没有问题,然后控件也安装成功了。但是当打开一个已带有DBGridEh控件的示例后,运行Project文件时,Delphi XE5提示:
Exception EReadError in module Project1.exe at 000BFAC4.Error reading DBGridEh1.FixGridlinecolor: Property FixGridlinecolor does not exist.
很奇怪的是,我有添加一些属性,也有提示属性不存在的问题,但是我检查后发现是因为少了预设值即:default clDefault,要设定一个值 ,但是这个属性添加后还是会报这个错误。请大牛们帮忙看下,在什么 地方写得不对。
------解决思路----------------------
顶一下,坐等高手解惑.......
------解决思路----------------------
这问题太高端了吧,现在Delphi的高手越来越少了
------解决思路----------------------
你的问题,花费时间太多。高手来的少啊!
------解决思路----------------------
我安装了EHLib 6.3.171版的DBGridEh控件,打开安装好的目录里面找到EhLib190.bpl控件包源代码,在DBGridEh.pas文件中做些修改,对DBGridEh控件添加些我自定义的属性,具体如下:
TDBGridEh = class(TCustomDBGridEh)下添加了
published
property FixGridlinecolor;
------
TCustomDBGridEh = class(TCustomDBAxisGridEh, IMTEventReceiverEh)
private
FFixGridlinecolor: TColor;
Procedure SetFixGridlinecolor(Value: TColor);
property FixGridlinecolor: TColor Read FFixGridlinecolor
Write SetFixGridlinecolor default clDefault;
-----
procedure TCustomDBGridEh.SetFixGridlinecolor(Value: TColor);
begin
if FFixGridlinecolor <> Value then
begin
FFixGridlinecolor := Value;
Invalidate;
end;
end;
这样加了后,编译EhLib190.bpl包文件没有问题,然后控件也安装成功了。但是当打开一个已带有DBGridEh控件的示例后,运行Project文件时,Delphi XE5提示:
Exception EReadError in module Project1.exe at 000BFAC4.Error reading DBGridEh1.FixGridlinecolor: Property FixGridlinecolor does not exist.
很奇怪的是,我有添加一些属性,也有提示属性不存在的问题,但是我检查后发现是因为少了预设值即:default clDefault,要设定一个值 ,但是这个属性添加后还是会报这个错误。请大牛们帮忙看下,在什么 地方写得不对。
------解决思路----------------------
顶一下,坐等高手解惑.......
------解决思路----------------------
这问题太高端了吧,现在Delphi的高手越来越少了
------解决思路----------------------
你的问题,花费时间太多。高手来的少啊!
------解决思路----------------------