Текущий архив: 2004.10.31;
Скачать: CL | DM;

Вниз

TreeView   Найти похожие ветки 

← →
Сергей__С   (2004-10-19 11:30) [0]

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

---

← →
Erik1 ©   (2004-10-19 11:37) [1]

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

---

← →
Сергей__С   (2004-10-19 12:24) [2]

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

---

← →
Сергей__С   (2004-10-19 12:37) [3]

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

---

← →
Pentium133 ©   (2004-10-19 12:44) [4]

смотри http://delphimaster.net/view/1-1097601135/

---

← →
NAlexey ©   (2004-10-19 14:23) [5]

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

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;


---

← →
Антон:::::::   (2004-10-19 15:02) [6]

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

---

← →
Сергей__С   (2004-10-19 15:03) [7]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.10.31;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.038 c