Главная страницаОбратная связьКарта сайта

Получить строковый путь в TTreeView


function SrNodeTree(pTreeNode: TTreeNode; var sRuta: string): string; 
begin 
  sRuta := pTreeNode.Text + " > " + sRuta; 
  if pTreeNode.Level = 0 then Result := sRuta 
  else  
    Result := SrNodeTree(pTreeNode.Parent, sRuta); 
end; 

{*--------------------------------------------- 
  Click an Item 
 ---------------------------------------------*} 

procedure TForm1.TreeView1Click(Sender: TObject); 
var 
  sPath: string; 
begin 
  label1.Caption := SrNodeTree(TreeView1.Selected, sPath); 
end;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Получить строковый путь в TTreeView", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2021 Дискета.info