Treeview [D5, WinXP]
Igor Nikolaev © (2002-02-24 09:40:00)
Здраствуите
У меня проблема, создается 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:00) [1]
Сделай TI глобальной переменной. Сначала создай "Open Ports",
а потом при каждом обращении в эту процедуру делай добавление
ветвей в TI
TI2:=TI.AddChild(...)
Наверх 
ЧАТ |
Орешник |
|
