用Delphi写ActiveX的经验
2010-01-13 15:42
369 查看
刚刚接手一个项目,源代码是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,只有上、下、左、右几个属性
开始的时候,想到了用一个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,只有上、下、左、右几个属性
相关文章推荐
- 一个Delphi程序员自述的开发经验
- Delphi经验总结(1)
- Delphi使用server组件控制excel的一点经验
- [导入]Delphi控件的使用经验
- Delphi的三层开发初学经验
- 如何在Delphi中调用Matlab(ActiveX)?
- Delphi程序设计之--经验技巧
- 图解在DELPHI6中调试ACTIVEX
- 一生delphi编程经验(转)
- delphi编写ActiveX在VBS下调 返回BSTR出错
- delphi忘记了控件属性怎么设置以及控件安装经验
- 一生delphi编程经验
- delphi 中注册 activeX 插件
- DELPHI性能优化的经验总结
- 开发IE控件ActiveX(Delphi 打印控件)
- 用 Delphi 7 创建 ActiveX 组件交 ASP 使用
- 经验教训:Delphi中out string 被外部通过Dll调用引发的错误
- DELPHI短信接口开发经验及具体开发实现