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

[Алексей_2012]

Там компиляция происходит без ошибок, а вот при ONClick на листбокс выскакивает такая ошибка

[Аватар]

Так я и спрашиваю - на какой строке метода. И весь свой код покажи этого метода

[Алексей_2012]

Вот весь проект

[Аватар]

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

[Алексей_2012]

Разобрался, но нужно было добавить форм2, теперь идея такая, заполнить ее компонентами, и в зависимости от выбранной записи в листбоксе выполнять нужные действия. Спасибо. Память, занимаемая Форм2 освободится после закрытия приложения?

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 TForm1) and (Screen.Forms[i].Tag = ListBox1.ItemIndex) then
      begin

//    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
      Caption := ListBox1.Items.Strings[ListBox1.ItemIndex];
      Tag := ListBox1.ItemIndex;
      Show;
    end;
  end;
end;

[Аватар]

if (Screen.Forms[i] is TForm2) and (Screen.Forms[i].Tag = ListBox1.ItemIndex) then

теперь идея такая, заполнить ее компонентами

Зачем заполнять компонентами? Этот подход для создания нескольких однотипных форм. Если у них разное компонентное содержимое он плохой

[Алексей_2012]

Спасибо! Почему вы выделили tform2? При tform2 работает не так. Можете объяснить условие:

if (Screen.Forms[i] is TForm1) and (Screen.Forms[i].Tag = ListBox1.ItemIndex) then

[Аватар]

Почему вы выделили tform2

Потому что ищу формы именно этого типа. TForm1 зачем искать?

При tform2 работает не так

У меня так

[Алексей_2012]

Ребят, а как уничтожить все дочерние формы открытые при событии, например по кнопке : закрыть все окна

procedure TForm6.CheckListBox1DblClick(Sender: TObject);
var s: string;
  ii: integer;
begin
  if CheckListBox1.ItemIndex = -1 then Exit;


  CheckListBox1.OnClick(Self);




  if CheckListBox1.ItemIndex >= 0 then begin
    for ii := 0 to Screen.FormCount - 1 do
      if (Screen.Forms[ii] is TForm7) and (Screen.Forms[ii].Tag = CheckListBox1.ItemIndex) then
      begin

        Screen.Forms[ii].Show;
        Exit;
      end;

    with TForm7.Create(Application) do begin
      Caption := CheckListBox1.Items.Strings[CheckListBox1.ItemIndex];
      Tag := CheckListBox1.ItemIndex;

      memo1.lines.LoadFromFile(ts_two.strings[CheckListBox1.itemindex]); 
      memo1.text := form2.decrypt(memo1.text, 'ключ'); 
      s := CheckListBox1.Items[CheckListBox1.itemindex]; 
      Caption := Copy(s, Pos(') ', s) + 2, length(s)); 
      Memo1.Font.size := 12;
      Width := 550;
      Show;
    end;
  end;              
end;

Пробовал так, уничтожает только одну форму:

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
var ii:Integer;
begin

    for ii := 0 to Screen.FormCount - 1 do
      if (Screen.Forms[ii] is TForm7)  then
      begin
        Screen.Forms[ii].hide;
          Screen.Forms[ii].free;//если не освобождать память-все работает
        Exit; //если не написать, то добавляется ошибка List index out of bounds 
      end;

  form6.Hide;
  form1.Position := poScreenCenter;
  form1.show;
end;

[ДралсяСошибками]

Не знаю, что у тебя там за программа, но с динамическими объектами удобнее работать с помощью: TObjectList, TComponentList, TList и прочими подобными зверьками))
Пример создания и удаления форм:

procedure TForm1.Button1Click(Sender: TObject);
var
  FormList: TObjectList;
  Form: TForm;
  i: Integer;
begin
  FormList := TObjectList.Create;
    for i := 0 to 29 do
      begin
        Form := TForm.Create(nil);
        Form.Left := Random(100);
        Form.Top := Random(100);
        Form.Show;
        FormList.Add(Form);
      end;
  FormList.Clear;
end;

Соответственно, с таким списком удобно работать в дальнейшем)))