wissly的专栏

需要注意的是 Delphi 的类方法。一般的静态类方法在 VC 中直接跳过即可，虚的类方法在 VC 定义为一般的虚函数即可。示例代码中，在 D 里实现了一个接口提供给 VC DLL，在 VC DLL 里实现了一个接口和一个类提供给 D 里使用。注意，D 中接口支持属性定义，但是 VC 不支持，因此 D 接口中的属性定义请放在声明的最后。如果接口的实例化是在 VC 中，有点有意思的小细节要注意，详见后面下载的代码里的注释。在 D 和 VC 中，要共享的接口、对象中的方法的调用约定必须为 stdcall。

首先要把ComboBox的属性设定一下.  ComboBox1.Style = csOwnerDrawFixed //此属性下会执行到DrawItem Event  ComboBox1.ItemHeight = 32;  //调整高度  ComboBox1.DropDownCount = 2;  再适当调整一下它的宽度。procedure TFTSProduct.ComboBox1DrawItem