unit tree;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DB, StdCtrls, ExtCtrls, IBCustomDataSet, IBQuery;

type
  TFlyTree = class(TForm)
    tvTree: TTreeView;
    qryTree: TIBQuery;
    procedure tvTreeExpanding(Sender: TObject; Node: TTreeNode;
      var AllowExpansion: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure GetExpandingItems(var Node: TTreeNode);
    { Public declarations }
  end;

  {структура ItemRec хранит информацию об узле дерева для отображения на форме.
   Каждый узел дерева Node у TreeView имеет указатель на структуру Node.Data.
   имена полей ItemRec соответствуют именам полей таблицы TREE.}
  PItemRec = ^ItemRec;
  ItemRec = record
    ParentId: string;
    Id: string;
    Name: string;
    Legatees: integer;
  end;

var
  FlyTree: TFlyTree;

implementation

uses …;
{$R *.dfm}

procedure TFlyTree.tvTreeExpanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
  GetExpandingItems(Node);
end;

procedure TFlyTree.GetExpandingItems(var Node: TTreeNode);
var
  NewNode: TTreeNode;
  R: PItemRec;
begin
  if Node = nil then
    qryTree.ParamByName('PARENTID').asString := '0' // Корневые элементы
  else
    begin
      Node.Selected := true;
      R := Node.Data;
      qryTree.ParamByName('PARENTID').asString := R.ID;
      // удаляются потомки узла, чтобы при добавлении узлов
      // из запроса потомки не дублировались
      Node.DeleteChildren;
    end;

  qryTree.Open;
  qryTree.First;

	// в цикле при раскрытии узла к текущему узлу добавляются потомки
  while not qryTree.Eof do
    begin
      NewNode := tvTree.Items.AddChildObject(
      tvTree.Selected, Trim(qryTree.FieldByName('NAME').asString), nil);
      // При добавлении узла резервируется память под данные этого узла
      New(R);
      NewNode.Data := R;
      R.ParentId := qryTree.FieldByName('PARENTID').asString;
      R.Id := qryTree.FieldByName('ID').asString;
      R.Name := Trim(qryTree.FieldByName('NAME').asString);
      R.Legatees := qryTree.FieldByName('LEGATEES').asInteger; // Если есть потомки, то =  1 , нет =  2 

      // если число потомков >  0  , у узла имеется плюсик(+).
      NewNode.HasChildren := R.Legatees;

      qryTree.Next;
    end;
  // нарисовали потомков узла - закроем запрос :-)
  qryTree.Close;
end;


procedure TFlyTree.FormCreate(Sender: TObject);
var
  CanBeExpanded: Boolean;
begin
  qryTree.SQL.Clear;
  qryTree.SQL.Add(‘SELECT ID, PARENTID, NAME, LEGATEES FROM TABLE_TREE WHERE PARENTID = :PARENTID’);
  CanBeExpanded := false;
  // при открытии формы раскрываем узлы, относящиеся только к корню (nil).
  tvTreeExpanding(self, nil, CanBeExpanded);
end;

end.