확장/축소 노드 이미지 클릭에 의한 TreeView 클릭

Question

많은 항목/노드가 포함 된 TreeView에 대한 양식이 있습니다. 노드의 항목을 두 번 클릭하면 (클릭 한 항목에 따라) 프로 시저를 실행합니다. 내 문제는 노드의 아이콘 (+ 또는 - 부호)을 클릭 할 때만 노드를 확장/축소하려는 경우입니다. 나는 :)이 좋은 해결책은 아니지만 작동 항목 내가 아는

similar question

Answer 1

을 두 번 클릭하지 않을 경우.

procedure TForm1.TWDblClick(Sender: TObject); 
begin 
TW.Items.BeginUpdate; 
TW.Selected.Expanded:=not TW.Selected.Expanded; 
TW.Items.EndUpdate; 
end; 

Answer 2

당신은 축소 또는 확대되는 노드를 방지하기 위해 OnCollapsing 및 OnExpanding 이벤트의 AllowCollapse 및 AllowExpand 매개 변수를 사용할 수 있습니다.

적절한 논리를 사용하여 클릭 한 노드의 일부를 인식합니다. 클릭에 생성 된 클릭이 아이콘에있는 경우 액션을 진행시키고 무시한 다음 (AllowXxxxx : = false로 설정)

그러나 키보드 탐색을 중단하지 않도록주의하십시오. 따라서 이벤트의 출처를 확인해야하며, 키보드 이벤트 (커서 왼쪽/오른쪽)의 경우 작업 진행 상태를 유지해야합니다.

발신자 이벤트를 추적하고 OnMouseDown 및 OnKeyDown 이벤트를 캡처하고 수신 된 최신 이벤트 유형의 내부 표시기를 설정하여 나중에 OnCollapsing 및 OnExpanding 이벤트 프로세스를 확인할 수 있습니다.

Answer 3

unit TreeViewNav; 

interface 

uses 
    SysUtils, Classes, Controls, ComCtrls, Messages; 

type 
    TNavTreeView = class(TTreeView) 
    private 
    procedure WMLButtonDblClk(var Message: TWMLButtonDblClk); 
     message WM_LBUTTONDBLCLK; 

    protected 
    FNoCollapse: Boolean; 
    function CanCollapse(Node: TTreeNode): Boolean; override; 
    end; 

implementation 

{ TNavTreeView } 

function TNavTreeView.CanCollapse(Node: TTreeNode): Boolean; 
begin 
    Result := not FNoCollapse and inherited; 
    FNoCollapse := False; 
end; 

procedure TNavTreeView.WMLButtonDblClk(var Message: TWMLButtonDblClk); 
var 
    PX, PY: Integer; 
    HT: THitTests; 
begin 
    with Message do 
    if (Width > 32768) or (Height > 32768) then 
     with CalcCursorPos do 
     begin 
     PX := X; 
     PY := Y; 
     end 
    else 
    begin 
     PX := XPos; 
     PY := YPos; 
    end; 

    HT := GetHitTestInfoAt(PX, PY); 
    if htOnItem in HT then 
    begin 
    FNoCollapse := True; 
    end; 

    inherited; 
end; 

end.