Delphi：ツリービューで選択項目の選択を解除します

Question

ツリービュー、MultiSelect:=trueがあります。

すべての項目を選択すると、選択を解除したり、もう一度選択することはできません。私はTForm1.TreeView1ClickにTreeView1.Selected.Selected:=false;をする必要があると思う。しかし、クリックがコントロールにないかどうかを知るには：アイテム、ボタン？

ビデオ：http://liga-installer.realservers.info/select.mp4

は通常以下のコードですか？

procedure TForm1.TreeView1Click(Sender: TObject); 
var 
Item: TTreeNode; 
begin 

    Item :=TTreeView(Sender).GetNodeAt(TTreeView(Sender).ScreenToClient(Mouse.CursorPos).X, 
    TTreeView(Sender).ScreenToClient(Mouse.CursorPos).y); 

    if (not Assigned(Item)) and (TTreeView(Sender).SelectionCount>0) then TTreeView(Sender).Select(nil, []); 
end; 

ありがとうございます！

Answer 1

Shiftキーを押しながら最初に選択した項目をクリックすると仮定します。 Ctrlキーを押しながらクリックすると、一度に1つの項目の選択を解除することもできます。

しかし、私はそれが直感的ではないことに同意します。私はしたい

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Integer); 
var 
    i: Integer; 
begin 
    if not Assigned(TreeView1.GetNodeAt(X, Y)) then 
    for i := 0 to TreeView1.Items.Count - 1 do 
     TreeView1.Items[i].Selected := false; 
end;