Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.261 c