Delphi VirtualStringTree OnMouseEnter和OnMouseLeave
发布时间:2020-12-15 09:17:44 所属栏目:大数据 来源:网络整理
导读:您好,有没有包含这2个鼠标事件的VirtualStringTree版本: OnMouseEnter和OnMouseLeave? 解决方法 如果您的字符串树不支持它们,这些事件很容易添加. TMyImprovedVirtualStringTree = class(TSomeVirtualStringTree) private FOnMouseEnter: TNotifyEvent; FO
您好,有没有包含这2个鼠标事件的VirtualStringTree版本:
OnMouseEnter和OnMouseLeave? 解决方法
如果您的字符串树不支持它们,这些事件很容易添加.
TMyImprovedVirtualStringTree = class(TSomeVirtualStringTree) private FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; // Watch for MouseEnter and MouseLeave messages... procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; protected // Provide MouseEnter() and MouseLeave() methods // for descendent controls to override if needed. procedure MouseEnter; virtual; procedure MouseLeave; virtual; published // Publish the events so they show in Delphi's object inspecter. property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter; property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave; end; implementation { TMyImprovedVirtualStringTree } procedure TMyImprovedVirtualStringTree.CMMouseEnter(var Message: TMessage); begin inherited; MouseEnter; end; procedure TMyImprovedVirtualStringTree.CMMouseLeave(var Message: TMessage); begin inherited; MouseLeave; end; procedure TMyImprovedVirtualStringTree.MouseEnter; begin if Assigned(FOnMouseEnter) then FOnMouseEnter(Self); end; procedure TMyImprovedVirtualStringTree.MouseLeave; begin if Assigned(FOnMouseLeave) then FOnMouseLeave(Self); end; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |