今天一直在Delphi6下调试程序,出现以下问题:
我Import一个ActiveX (ocx),这个控件具有一个属性为Buffer(IcBox1.Buffer : [Index : SmallInt] : SmallInt ),是可读写的.可是我在Delphi下却不能给他赋值,结果我分别在VB,C++Biulder,VC++下调用这个OCX,结果buffer属性正常,可读写.于是我非常奇怪中,为什么只有Delphi里这个属性不能赋值.后来不小心察看了这个ocx引入Delphi的类型文件,发现:
procedure TIcbox.Set_Buffer(Index: Smallint; Param2: Smallint);
begin
Exit;
end;
于是当场晕倒.修改如下:
procedure TIcbox.Set_Buffer(Index: Smallint; Param2: Smallint);
begin
DefaultInterface.Buffer[Index] := Param2;
// Exit;
end;
这下就好了.这里我主要想问一下,是不是在Delphi里,引入ocx要得Set方法要自己写实现吗?还是这是Delphi的问题.
本人Delphi6打最近的了2个补丁.
我Import一个ActiveX (ocx),这个控件具有一个属性为Buffer(IcBox1.Buffer : [Index : SmallInt] : SmallInt ),是可读写的.可是我在Delphi下却不能给他赋值,结果我分别在VB,C++Biulder,VC++下调用这个OCX,结果buffer属性正常,可读写.于是我非常奇怪中,为什么只有Delphi里这个属性不能赋值.后来不小心察看了这个ocx引入Delphi的类型文件,发现:
procedure TIcbox.Set_Buffer(Index: Smallint; Param2: Smallint);
begin
Exit;
end;
于是当场晕倒.修改如下:
procedure TIcbox.Set_Buffer(Index: Smallint; Param2: Smallint);
begin
DefaultInterface.Buffer[Index] := Param2;
// Exit;
end;
这下就好了.这里我主要想问一下,是不是在Delphi里,引入ocx要得Set方法要自己写实现吗?还是这是Delphi的问题.
本人Delphi6打最近的了2个补丁.
解决方案 »
- 简单的理论问题,望前辈们不惜赐教!
- 如何一次产生小于N的几个互不相同的随机数!!!!
- 关于Query --Too easy来着奖励
- 有关本地表问题
- 除了每天登陆csdn,还有什么方法可以提高可用分?
- 打印时,dbtext折行打印,并且有固定表格宽度
- 模拟按键的小问题
- 请教各位如何在Delphi中调用foxmail发送邮件?(要加附件)谢谢。在线恭侯!
- socket编程问题---50分
- leslie模型MATLAB编程求解过程中出现:
- Delphi6与C++ Builer6安装在同一台计算机上导致Delphi6部分VCL组件不能使用?
- 用ADOCommand命令执行backup语句备份数据库,出错提示不能异步执行,如何解决?
DefaultInterface.Buffer[Index] := Param2;
错,我都快晕到了