treewievla ilgili

[meron06]

Sel.Al.arkadaşlar.treewievda listelelnen ana başlıklarım ve alt başlıklarım var.yapmak istediğim şey şu.örneğin bi alt başlığa tıklayınca o alt başlığın hangi ana başlığin altındaysa o ana başlığın text değerini nasıl alırım.

[vedatkaba]

Anlamadım hocam ne demek istediğini biraz açrmısın konuyu

[poshet303]

Aslında bu çok basit. TTreeView ve TTreeNode un özellik ve metodlarına bir gözatsanız hemen anlayacaksınız nasıl yapılabileceğini.

Kod: Tümünü seç

procedure TForm1.TreeView1DblClick(Sender: TObject);
Var
 myNode,tempNode:TTreeNode;
begin
 tempNode:=Treeview1.Selected;
 while tempNode<>nil do
 begin
  myNode:=tempNode;
  tempNode:=tempNode.Parent;
 end;
 showmessage(myNode.Text);
end;

yada daha az bellek ama daha fazla CPU zamanı isteyen kod

procedure TForm1.TreeView1DblClick(Sender: TObject);
Var
 tempNode:TTreeNode;
begin
 tempNode:=Treeview1.Selected;
 while tempNode<>nil do
 begin
  if tempNode.Parent=nil then
   showmessage(tempNode.Text);
  tempNode:=tempNode.Parent;
 end;
end;