请问TreeView控件在双击时如何使它不展开。在线等待。

lgywxt 2004-05-02 04:20:23
我希望在双击TreeView控件的根节点时,使它不自动展开,如何才能办到。在线等待。谢谢!
...全文
93 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ssoj 2004-05-02
以上的语句好象是重新定义了Ttreeview这个控件
好象忘了加入条件以限制只在节点不展开,
是不是应该在procedure TTreeView1.WMLButtonDBClick(var Message: TMessage);
下面加入条件呢?
  • 打赏
  • 举报
回复
lijinghe1 2004-05-02
unit TreeView1;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, ComCtrls;

type
TTreeView1 = class(TTreeView)
private
procedure WMLButtonDBClick(var Message: TMessage); message WM_LBUTTONDBLCLK;
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('samples', [TTreeView1]);
end;

{ TTreeView1 }

procedure TTreeView1.WMLButtonDBClick(var Message: TMessage);
begin
DblClick;
end;

end.
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

5074

社区成员

Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
申请成为版主
帖子事件
创建了帖子
2004-05-02 04:20
社区公告
暂无公告