| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TreeView [D7, WinXP]

Сергей__С ©   (2004-10-19 11:30:00) 

Здравстсвуйте! Подскажите пожалуйста следующую вещь:
У меня есть на форме компонент TreeView. Как  сделать, чтобы при добавлении нового элемента с ним ассоциировался определенный объект TString? То есть при щелчке на любом элементе TreeView я мог получить конкретный для него TStings.

---

Сергей__С   (2004-10-19 15:03:00) [1]

> NAlexey ©
> ПРЕОГРОМНОЕ ТЕБЕ СПАСИБО!!!!!

Это я написал.Просто под другим именем вошел.

---

Антон:::::::   (2004-10-19 15:02:00) [2]

NAlexey ©
ПРЕОГРОМНОЕ ТЕБЕ СПАСИБО!!!!!

---

NAlexey   (2004-10-19 14:23:00) [3]

>Не смог разобраться, может кто-нибудь помочь примером?
Я помогу:

procedure TForm1.btnAssignMomoToNodeClick(Sender: TObject);
var
 CurrNode: TTreeNode;
begin
 CurrNode := TreeView1.Selected;
 if CurrNode = nil then
   Exit;
 TStrings(CurrNode.Data).Assign(Memo1.Lines);
end;

procedure TForm1.btnBuildTreeClick(Sender: TObject);
var
 Root, Parent, Child: TTreeNode;
 I, J: Integer;
begin
 Root := TreeView1.Items.AddChild(nil, 'Root');
 Root.Data := TStringList.Create;
 TStringList(Root.Data).Add('---------------------------');
 TStringList(Root.Data).Add('Root');
 TStringList(Root.Data).Add('---------------------------');
 for I := 0 to 10 do
 begin
   Parent := TreeView1.Items.AddChild(Root, Format('Нод номер %d', [I]));
   Parent.Data := TStringList.Create;
   TStringList(Parent.Data).Add('------------------------------');
          TStringList(Parent.Data).Add('- Parent     ''Root''');
   TStringList(Parent.Data).Add(Format('- Nod number %-d',      [I]));
   TStringList(Parent.Data).Add('------------------------------');
   for J := 0 to 10 do
   begin
     Child := TreeView1.Items.AddChild(Parent, Format('Нод номер %d', [J]));
     Child.Data := TStringList.Create;
     TStringList(Child.Data).Add('---------------------------');
     TStringList(Child.Data).Add(Format('- Parent       %-d', [I]));
     TStringList(Child.Data).Add(Format('- Nod number   %-d',      [J]));
     TStringList(Child.Data).Add('---------------------------');
   end;
 end;
end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
 Memo1.Lines.Assign(TStrings(Node.Data));
end;


---

Pentium133   (2004-10-19 12:44:00) [4]

смотри http://www.delphimaster.ru/cgi-bin/forum.pl?id=1097601135&n=0

---

Сергей__С   (2004-10-19 12:37:00) [5]

Не смог разобраться, может кто-нибудь помочь примером?

---

Сергей__С   (2004-10-19 12:24:00) [6]

Спасибо, посмотрю.

---

Erik1   (2004-10-19 11:37:00) [7]

TCustomTreeView.Items имеет тип TTreeNodes загляни в help там методы интересные есть например AddObject. Вобще почему никто ни в поисковик незаглядывает ни в Help?
 В место TString используй  TStringList.

---

Наверх