Esegui evento solo se un nodo TreeView viene cliccato

Question

I, (più tempo), il tentativo di eseguire un'azione quando scatto in un oggetto di un controllo TreeView si veda:

procedure TForm1.TreeView1Click(Sender: TObject); 
begin 

    if treeview1.Selected.AbsoluteIndex=1 then 
    begin 
    showmessage('selecionado'); 
    end; 

end; 

Questo codice mostrerà un messaggio se l'utente clicca in indice 1 di una treeview, il problema è il seguente: Se l'utente seleziona l'indice 1, verrà visualizzato il messaggio, tuttavia dopo di che, l'utente fa clic nell'area vuota della listview il messaggio viene comunque eseguito perché l'elemento è ancora selezionato . Come posso far funzionare l'evento solo se l'utente fa clic sull'elemento corrispondente?

Answer 1

Non utilizzare OnClick, che si verifica ogni volta che si fa clic su TTreeView (non solo quando si fa clic su un nodo). Al contrario, utilizzare l'evento TTreeView.OnChange, che si passa il nodo:

procedure TForm3.TreeView1Change(Sender: TObject; Node: TTreeNode); 
begin 
    if Assigned(Node) then 
    if Node.AbsoluteIndex = 1 then 
     ShowMessage('selecionado'); 
end; 

Answer 2

procedure TForm1.TreeView1Click(Sender: TObject); 
begin 
    if Assigned(TreeView1.Selected) then 
    begin 
     if SameText(TreeView1.Selected.Text, 'show form1') then 
      ShowMessage('selecionado') 
     else 
      if SameText(TreeView1.Selected.Text, 'show form2') then 
       ShowMessage('s22'); 
    end 
end; 

Answer 3

procedure TfClerks.tvHqClick(Sender: TObject); 
var 
    Node: TTreeNode; 
begin 
    with tvHq.ScreenToClient(Mouse.CursorPos) do 
    Node := tvHq.GetNodeAt(X, Y); 
    if Node = nil then 
    Exit; 
    // do something 
end;