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

lgywxt 2004-05-02 04:20:23
我希望在双击TreeView控件的根节点时,使它不自动展开,如何才能办到。在线等待。谢谢!
...全文
130 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
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.

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧