Массив форм или...?

[фдучмь]

Добрый день,

стоит следующая задача - при перемещении по TreeView или ListView показывать окна с различным содержанием. Элементов в Treeview или Listview достаточно много, и создавать множество форм под каждый из них не хочется. Посоветуйте, пожалуйста, как можно создавать формы и наполнять их различным содержимым динамически, причем типы, кол-во и расположение объектов должно зависеть от индекса ноды TreeView или ListView.


Алексей.

[GoodDA]

гдето так,
вместо random'ов подставляй характеристики выбранной ноды

procedure  generateForm(sel:tform);
var i,h,n:integer;
    t:twincontrol;
    l:tlabel;
    j:char;
begin
  h:=10;
  randomize;
  n:=3+random(8);
  sel.caption :='';
  for j:= 'а' to 'я' do if random(100)<25 then sel.caption := sel.caption+j;
  for i:= 1 to n do
  begin
    case random(4) of
      0: begin t:=tedit.Create(sel);   for j:= 'а' to 'я' do if random(100)<25 then tedit(t).text := tedit(t).text+j; end;
      1: begin t:=tcombobox.Create(sel); end;
      2: begin t:=tListBox.Create(sel);  end;
      3: begin t:=TDateTimePicker.Create(sel);    end;
    end;
    t.Left := 150;
    t.top := h+10;
    t.Width := 150;
    t.Parent := sel;
    L:=tLabel.Create(sel);
    L.Left := 10;
    L.top := h+10;
    L.Parent := sel;
    L.Caption := 'Подпись элемента № '+inttostr(i);
    h:=h+10+ t.Height;
  end;
  sel.Height := h+50;
end;

//пример вызова
procedure TForm1.Button1Click(Sender: TObject);
var ff:tform;
begin
  ff:=tform.Create(self);
  generateForm(ff);
  ff.Parent:=self;
  ff.Show;
end;

[фдучмь]

Спасибо за помощь!

[Grag]

И будут эти формы плодиться долго и в большом количестве... создавая не нужные дубликаты уже созданных ранее форм... Что-то я не вижу удаления форм... Заголовок топика "Массив форм или..."
В свое время я сделал именно "или". Т.е. динамически создавал на панели нужные компоненты и располагал их в требуемом порядке. При переходе к новой ноде (в моем случае к другому пункту меню) я удалял все созданные компоненты на панели и формировал новые, в зависимости от требований пункта меню...