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

Вниз

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

← →
Infom   (2004-03-18 10:17) [0]

Как в процессе запуска программы в dxTreeList создавать новые item

---

← →
Курдль ©   (2004-03-18 13:51) [1]

Рабочий пример формирования "дерева" из набора данных (ods1), полученного запросом "...CONNECT BY PRIOR":
procedure TForm1.Create(Sender: TObject);
var trn1: array[0..63] of TdxTreeListNode; level: Integer;
begin
 trn1[0]:=nil;
 tree1.Visible:=False;
 ods1.DisableControls;
 ods1.First;
 while not ods1.Eof do
  begin
   level:=ods1.FieldByName("LEVEL").AsInteger;
   if level = 1 then trn1[level]:=tree1.Add
                  else trn1[level]:=trn1[level-1].AddChild;
   if trn1[level]<>nil then trn1[level].MakeVisible;
   trn1[level].Data:=Ptr(ods1.FieldByName("ACC_ID").AsInteger);
   trn1[level].Strings[0]:=ods1.FieldByName("ACC_CODE").AsString;
   trn1[level].Strings[1]:=ods1.FieldByName("ACC_NAME").AsString;;
   ods1.Next;
  end;
 ods1.EnableControls;
 tree1.Visible:=True;
 tree1.FullCollapse;
end;
//-------------------------------------------------------------------------------


---

← →
Infom   (2004-03-18 16:31) [2]

Большое спасибо. Все прекрасно работает

---

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

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

Наверх

Память: 0.47 MB
Время: 0.026 c