Treeview

← →
Igor Nikolaev (2002-02-24 09:40) [0]

Здраствуите
У меня проблема, создается Item и в дальнеишем нужно добавлять в него child. Делаю так, но при каждом сообщений создается вновь Item "Open Ports", а мне нужно чтобы все добавлялось в один Item(без содания в дальнеишим итемов c именем "Open Ports").
Как осуществить?

procedure TMainForm.WMFoundPort(var Msg: TMessage);
var
Info: TFoundPortInfo;
TI,K: TElTreeItem;
begin
Info := Pointer(Msg.WParam);
TI := Info2.Items.add(TI, "Open Ports"); //Add Items in Treeview
TI.ImageIndex := 35;
TI := Info2.items.AddChild(TI, Inttostr(Info.Port)+" [" + Info.Description + "]"); //Add Child
TI.ImageIndex := 0;
Info.Free;

← →
Song (2002-02-24 10:11) [1]

Сделай TI глобальной переменной. Сначала создай "Open Ports", а потом при каждом обращении в эту процедуру делай добавление ветвей в TI

TI2:=TI.AddChild(...)

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