您的位置:首页 > 编程语言 > Delphi

用Delphi写ActiveX的经验

2020-02-17 11:07 330 查看

    刚刚接手一个项目,源代码是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

  • 点赞
  • 收藏
  • 分享
  • 文章举报
dddaaa1234 发布了0 篇原创文章 · 获赞 0 · 访问量 141 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: