Динамическое создание форм с адресацией

[Алексей_2012]

Ребят, простите за глупый пост, но все же...

Есть 4 формы, на одной из них листбокс, по клику на запись нужно создать форму с префиксом этой записи, допустим %прем% (в листбоксе будет написано просто: таблица премий). В голову пришла идея с динамическим массивом из форм, но на каждой динамической форме должна создаться кнопкэ, стринглист и панель, плюс процедурный обработчик как-то связать надо.

В общем сложность в адресации (узнать какие формы открыты)
В этом самая главная сложность, по клику на листбокс нужно создать столько динамических форм, сколько пользователь кликнет, плюс предусмотреть какие открыты.


З.ы. да, решил все-таки программу по сметам дописать :D. Если можно хоть какой-то кривой пример кода. Спасибо!

З.з.ы: листбокс изначально пуст, в него помещается наименование промежуточной таблицы, созданной пользователем.

[xxbesoxx]

Пустой базар . Без наработки .

В голову пришла идея

Начать самому реализовать не пришлось в голову ? Если да , То покажите наработку.

[Stilet]

сложность в адресации

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

formБлабла:=TformБлабла.Create(nil);
with formБлабла do begin
 Тут ее параметры типа позиции, видимости, родителя и др.
end;

Во-вторых: Screen.Forms. Отвечает за список форм. Используй его для получения списка форм, или сделай свой на основе TComponentsList. В него добавляй вновь созданную форму.

Кстати пример на форуме уже где-то был.
Да хотя бы вот: http://www.programmersforum.ru/showthread.php?t=67085

[Алексей_2012]

Ребят, форма создается, но открывается только одна, при клике на листбокс, в общем гляньте проект, пожалуйста.
А еще, как освободить память, занимаемую динамической формой? То есть писать свою процедуру и вызывать ее при

mess_form.onclose:: procedure;? Как-то так?

var
  mass_form:array of TForm;
  i:Byte;
begin
  SetLength(mass_form,listbox1.count);
           i:=0;
    mass_form [i]:=TForm.Create(self);
  mass_form [i].Width:=500;
  mass_form[i].Height:=150;
  mass_form[i].ShowModal;
             mass_form:=nil;
end;

Ребят, а как на i-форме создать динамические компоненты? i-itemindex листбокса

[Stilet]

А зачем? Создай заранее готовую форму, накидай на нее компоненты, а потом просто создавай в динамике.
Можно кстати array of TForm; заменить на ... Кстати я выше говорил на что, внимательнее будь.
И тогда у тебя будет массив любых видов форм а не только TForm.

Накидывать компоненты на форму во время исполнения это учебная задача или ты хочешь какую-то практическую задачу решить? Если учебная то я еще понимаю но на практике не стоит этого делать. Если разнообразных форм будет немного, то лучше их в дизайне подготовить.

[саша40]

Для экономии памяти и нервов проще будет менять одну и ту же форму.
Например, если форма не создана(с целью экономии памяти так и делают), то создаем её, заполняем и показываем.
Если форма просто закрыта(или спрятана), но не уничтожена из памяти, то просто заполняем её как надо и показываем.

[Аватар]

А создавать-активировать без всяких массивов так например

procedure TForm1.ListBox1Click(Sender: TObject);
var i: Integer;
begin
  if ListBox1.ItemIndex>=0 then begin
    for i:=0 to Screen.FormCount-1 do
      if (Screen.Forms[i] is TForm2) and (Screen.Forms[i].Tag=ListBox1.ItemIndex) then begin
// или по Caption
//    if (Screen.Forms[i] is TForm2) and (Screen.Forms[i].Caption=ListBox1.Items.Strings[ListBox1.ItemIndex]) then begin
        Screen.Forms[i].Show;
        Exit;
      end;
    with TForm2.Create(Application) do begin
// заметь, в Form2 ни чего не присваивается и эту переменную лучше вообще не использовать в таких случаях
      Caption:=ListBox1.Items.Strings[ListBox1.ItemIndex];
      Tag:=ListBox1.ItemIndex;
      Show;
    end;
  end;
end;

по индексу итема из листбокса только если строки не удаляются динамически из него

[Алексей_2012]

Т.е. при закрытии формы проблема освобождения памяти, занимаемой формой и ее компонентами отпадает сама собой?

не работает код

з.з.ы, будете смеяться, но у меня мысль создать массив пользовательских типов из
Tform
TstringGrid
Tbutton
:D потом при закрытии проверить какая из форм закрыта и уничтожить все объекты.

Stilet, я стараюсь, но не особо понимаю

[lomastr_]

А создавать-активировать без всяких массивов так например

еще проще в самом списке листбокса держать ссылку чтобы поиском не заниматься

[Аватар]

не работает код

Думаешь на твоей картинке видно на какой строке ошибка?

еще проще в самом списке листбокса держать ссылку чтобы поиском не заниматься

C одной стороны проще, с другой в OnClose та форма может уничтожаться с помощью caFree. Тогда эту ссылку придется тоже править, а надо?