Dodawanie SubItemów TreeView'a

Mam szybkie jedno pytanko, jaka procedura wyciągnie mi SubItemy TreeView na Label, tzn.: Mam Parenta i chcaiłbym, żeby wszystkie jego subitemy były dodane po znaku ";", czyli przykładowy tekst Labela by wyglądał: SubItem1;SubItem2;Subitem3. W tym przypadku TreeView wyglądał by tak:

• Parent
  • SubItem1
  • SubItem2
  • SubItem3

Tylko, że jeszcze jednym wymaganiem by było, żeby odnosiło się to tylko do Parenta, który jest zaznaczony (robie to w OnChange, więc może być z Node.). Pewna jest pętelka po subitemach, ale jak je wyciągnać ?

Hmmm, sorka, ale chyba źle się wyraziłem, tzn.: za szybko pisałem, bo sie spieszyłem. Chodzi mi o to, aby na Labelu wyświetlić wszystkie SubItemy zaznaczonego przeze mnie Parenta w TreeView oddzielone znakiem ; . Przyładowo tekst na Labelu powinien byglądać tak: pierwszy;drugi;trzeci;czwarty . Czy jest to możliwe, a jeżeli tak to z jakiej procedury / funkcji mam skorzystać, proszę pomóżcie kalece :)

Cóż.. nie pozostaje mi nic innego jak odesłać do Helpa, - i lektury o TTreeNode... - tam jest wszystko opisane..

Czytałem, czytałem i jedyne co zlanazłem to cos o OwnerItem, ale niewiem czy na pewno mi chodzi o tą funkcję, ponieważ jakoś strasznie dziwienie u mnie działała :/

lecisz po subitemach az nie napotkasz innego parenta (czyli wszystkie subitemy gdzie parnet to Twoj parent :))
najprosciej, choc moze nie najlepiej to wystarczy repeat until i IF

trochę podobnie myslałem, choć troche inaczej, no ale będzie program, ponieważ TreeView nieposiada takiego czegos jak SubItem(); :/

Ale posiada coś takiego jak Count, Items, Parent, Child itp..

No fakt, jest TreeView.Items.Parent, no ale NIE MA TreeView.Items.Child :|

ehh.. - element w drzewku TTreeView to TTReeNode - zobacz jego właściwości, dostępne metody - poczytaj trochę.. Wszystko jest opisane w helpie ...

Detox, czy Ty zawsze musisz być taki tajemniczy :( Szukałem, patyrzyłem wszystkie prawie możliwe procedury i funkcje i ich opisy z przykładami z helpa, znalazłem takie jak Owner, GetFirstChild, ale za nic niemogę tego zastosować :( Proszę to ważna rzecz, jak to będe miał to reszte już napisze...

var
  i: Integer;
begin
  for i := 0 to TreeView1.Selected.Count - 1 do
    label1.Caption := label1.Caption + TreeView1.Selected.Item[i].Text;
end;

[sciana] [sciana] [sciana] Takie banalne, a ja sobie poradzić niemogłem [wstyd] [wstyd] [wstyd] ;P

Kurde zopomniałem jeszcze o jednym, ponieważ temat dotyczy prawie tego samego, więc niebęde zakładał nowego tematu, a mianowicie chodzi o obsłużeniu MultiSelecta w Treeiew. Funkcja powinna wyglądać podobnie, znaczy się do Labela dodają się zaznaczone elementy TreeView'a. Moim zdaniem funkcja powinna wyglądać podobnie niż podana, ale jednak coś neichce działać :/

 for i2 := 0 to TreeView1.Selected.Count - 1 do
      Label1.Caption :=  Label1.Caption + TreeView1.Selected.Item[i2].Text + ';';

No, ale jakoś niedziała, pomoże ktoś to przekształcić, albo napet tylko naprowadzić, może inna funkcja osbługuje MultiSelect ?

Rób to samo, co normalnie, tylko jeszcze if, czy jest zaznaczony.

Rób to samo, co normalnie, tylko jeszcze if, czy jest zaznaczony.

Czyli chodzi Ci o:

if TreeView1.Selected.Count <> 1 then begin

? Bo mi z tym dalej niedziała :(