用Delphi写ActiveX的经验

    刚刚接手一个项目，源代码是VB，老板要求对这个项目进行一些Bug的修改和功能的扩展。其中，这个程序涉及到了一个9*13的Grid，每个Grid里面需要显示3行指定的信息，并且要能够更改Grid的背景颜色。最要命的，是要能够使用Ctrl键进行多选。

 

    开始的时候，想到了用一个FlexGrid的控件完成任务。但是在搜集了一圈资料后，感觉这个控件比较难用，不容易实现自画功能，这样的话就难以实现3行信息的显示，以及背景颜色的修改。怎么办？这时候就想到了利用Delphi。先利用Delphi自带的TStringGrid控件做为父类继承一个类过来，然后利用Delphi方便的OCX生成功能生成控件，在VB里面使用不就行了？

 

    说干就干。第一步，首先明确控件需要实现的功能。这个控件需要实现4个功能：1、点击FixedCol和FixedRow能够实现列选和行选，点击最左上角的格子可以全部选中；2、可以按住ctrl进行MultiSelect；3、自动调整各列的宽度，是行和列能够均布并正好充满当前视图，不使用滚动条；4、界面美观的一些小技巧。

 

    先说第一个功能：这个比较简单，可以判断鼠标的点击，然后根据点击的位置来确定是否是ClickCaption，是的话就设置Selection的属性，将行或者列选中。我这里借鉴了JVCL控件JvStringGrid实现了CaptionClick。具体实现方法就不说了，可以看一下源代码。点击左上角格子实现全选的功能也是一样的方法。

 

    再说说第二个功能。要实现TStringGrid的MultiSelect，据我了解，目前还没有控件可以实现。因为这个类的Selection是一个TGridRect，只有上、下、左、右几个属性

转载于:https://www.cnblogs.com/yunhaisoft/archive/2010/01/13/1646622.html