Get selected treenode i TTreeview

TreeView1.Selected.Text ?

Tror du kan gøre sådan:

If ListView1.Selected = nil then exit;
selnode := ListView1.Selected.Caption;

http://www.udvikleren.dk/article.php?aid=30&techid=2

procedure TForm1.Button1Click(Sender: TObject);
var
  pick : TTreeNode;
begin
  If not (TreeView1.Selected = nil) then
    begin
      ip := TreeView1.Selected.Text;
      Ping1.DnsLookup(ip);
      TreeView1.Deselect(TreeView1.Selected);  //DEN HER!
      Exit;
    end
    else
      begin
        showmessage('Nu er den de-selected!');
      end;

  ...........

Tak, der var nice information på det link .. Men hvordan deselecter jeg den node igen?

TreeView1.Deselect(TreeView1.Selected); deselecter den godtnok så den ikke er den blå farve mere - men der er stadig den "ramme" omkring, så den trigger ikke showmessage('Nu er den de-selected!');

Prøv at sætte ListView1.Selected.Index til -1 en.

Nej... det kan man vist ikke.

Det er jo en TreeView - der findes Selected.Index ikke?

Ja, fandt jeg ud af, da jeg prøvede det i delphi :)

Har du/I et løsningsforslag til at deselecte den node ordenligt? :)

Så fandt jeg vist ud af det.. Du sætter bare TreeView1.Selected til nil :)

F.eks.:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
    TTreeView(Sender).Selected := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TreeView1.Selected := nil;
end

Og det spiller 100% .. takker! :P