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

Question

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

Answer 1

unit TreeView1;interfaceuses
  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;implementationprocedure Register;
begin
  RegisterComponents('samples', [TTreeView1]);
end;{ TTreeView1 }procedure TTreeView1.WMLButtonDBClick(var Message: TMessage);
begin
  DblClick;
end;end.

Answer 2

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