Bir ağaç düğümü tıklandığında yalnızca olayı Yürütme

Question

Ben, (daha fazla zaman), ben bir ağaç bir öğesini tıkladığınızda bkz eylemi yürütmeye çalışırken: kullanıcı tıklar

procedure TForm1.TreeView1Click(Sender: TObject); 
begin 

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

end; 

Bu kod, bir ileti gösterilmesi treeview'in dizin 1'i, Sorun şu şekildedir: Kullanıcı dizini 1 seçerse, mesaj görüntülenir, ancak bundan sonra, öğe listenin seçili olduğu için kullanıcının listenin boş alanına tıklatılması mesajı görüntülenir. . Etkinliği yalnızca Kullanıcı ilgili öğeyi tıklarsa nasıl çalıştırabilirim?

Answer 1

TTreeView tıklandığında (yalnızca bir düğüm tıklatıldığında değil) oluşan OnClick'u kullanmayın.

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;