Маленькое дополнение Default True; да и с сылка корявая когда нажимаешь он её в html скачивает.
| Код |
unit AvgTreeView;
interface
uses Messages, Classes, ComCtrls;
type
TAvgTreeView = Class(TTreeView)
private
FDblClickExpand: Boolean;
protected
procedure MsgDblClick(var Msg:TMessage); message WM_LBUTTONDBLCLK;
published
property DblClickExpand: Boolean read FDblClickExpand write FDblClickExpand Default True;
public
constructor Create(AOwner: TComponent); override;
end;
procedure Register;
implementation
{ TAvgTreeView }
procedure Register;
begin
RegisterComponents('Avg',[TAvgTreeView]);
end;
constructor TAvgTreeView.Create(AOwner: TComponent);
begin
inherited;
DblClickExpand := True;
end;
procedure TAvgTreeView.MsgDblClick(var Msg: TMessage);
var
Node:TTreeNode;
begin
if Assigned(OnDblClick) then OnDblClick(Self);
Node := Self.GetNodeAt(Msg.LParamLo, Msg.LParamHi);
if Node <> Nil then
begin
if FDblClickExpand then Node.Expanded := not Node.Expanded;
Node.EndEdit(True);
end;
end;
end.
|
|
