如何在一个控件上用新的滚动条类替换旧的(在线等候,详情见内)(100分)

  • 主题发起人 主题发起人 erx
  • 开始时间 开始时间
E

erx

Unregistered / Unconfirmed
GUEST, unregistred user!
我想用ThemeEngine的滚动条控件替换HtmlView控件自己带的滚动条。
ThemeEngine的继承自TGraphicControl,没有HWnd这个元素,
而HtmlView的继承自TWinControl,有HWnd。
HtmlView控件滚动用到了SetScrollInfo,里面需要句柄。
我该怎么办?

另外,我把SetScrollInfo那句注释掉了,直接把THtmlView类里面的
滚动条类型改为ThemeEngine的定义的滚动条的类,在设置垂直/水平
显示方式上,又出现了这个问题:
[Error] Htmlview.pas(565): Incompatible types: 'te_controls.TScrollBarKind' and 'Htmlview.TScrollBarKind'
而我看了它们TScrollBarKind的定义都是完全一样的,都来自Delphi的Controls.pas

我主要的目的就是想把HtmlView这个第三方控件(用于显示HTML页面的)的滚动条
换一个显示风格,我的程序整体上用ThemeEngine控件来做外观。

我该怎么办?谢谢!一直在线等着
 
后退
顶部