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

[lgywxt]

我希望在双击TreeView控件的根节点时，使它不自动展开，如何才能办到。在线等待。谢谢！

[lijinghe1]

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.

• 打赏
• 举报

回复 赞

[ssoj]

以上的语句好象是重新定义了Ttreeview这个控件
好象忘了加入条件以限制只在节点不展开，
是不是应该在procedure TTreeView1.WMLButtonDBClick(var Message: TMessage);
下面加入条件呢?

• 打赏
• 举报

回复 赞