treeview + объект

← →
redlord (2005-02-18 14:35) [0]

Всем приве
народ как в items компонента treeview повесить обект
а потом в обработчике TreeView1Click им воспользоватся
обект примерно такой
type
Tmyobj = class
n:integer;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
node:ttreenode;
n:integer;
begin
for n:=0 to 10 do
begin

myobj:=tmyobj.Create;
myobj.n:=n;
node:=treeview1.Items.AddChild(nil,"qqq");
treeview1.Items.AddChildObject(node,"obj",??????????????????);
end; end;

procedure TForm1.TreeView1Click(Sender: TObject);
begin
?????????????????????????
end;

← →
begin...end © (2005-02-18 14:41) [1]

> redlord (18.02.05 14:35)

> treeview1.Items.AddChildObject(node,"obj",??????????????????);

TreeView1.Items.AddChildObject(node, "obj", myobj);

← →
Семен Сорокин © (2005-02-18 15:55) [2]

гы, а не проще ли так написать:
TreeView1.Items.AddChildObject(node, "obj", TObject(n));
вместо того чтобы создавать объект с единственным integer-полем.
ЗЫ. Кстати эти объекты и убивать надо, чтобы не было утечки памяти.

← →
redlord (2005-02-18 16:58) [3]

объект с одним полем ето чтоб пример не загромождать
а убивать объекты буду вместе с Itemsами
а как обратится к объекту, на итемсе которого был произведен клик

← →
Eraser © (2005-02-18 17:01) [4]

Tmyobj(TreeView1.Selected.Data).метод_или_свойство

← →
redlord (2005-02-18 17:10) [5]

To Eraser
спасибо
ето то что надо

> redlord

У TTreeView есть событие OnCreateNodeClass. Вместо
Tmyobj = class
можно сделать так
Tmyobj = class(TTreeNode)
А потом передавать этот класс в обработчике OnCreateNodeClass. Тогда сам итем будет содержать все необходимые свойства и методы. Иногда это бывает удобнее, чем использовать свойство Object, особенно если требуется использовать несколько разных классов.

treeview + объект Найти похожие ветки