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

[Алексей_2012]

Простая программа по созданию и прохождению тестов со множеством наворотов ) спасибо за ответ, но все же хотелось бы поправить код из поста 19. Не скрыть форму, а уничтожить и освободить память

З.ы. почему-то на 64 разрядной семерке работает отлично, а вот на 32-иногда текст в мемо не прогружается, почему-сломал всю голову.

[evg_m]

Вар 1 для нужной формы указать обработчик Onclose, в котором задавать значение Action :=caFree.
которое обеспечит "автоматическое" удаление формы и ВСЕХ объектов ( наследников TComponent) у которых в качестве собственника (Owner не Parent) была данная форма.

f:=TformX.Create(nil);
panel:=Tpanel.Create(f); // эта панель будет удалена (Free)  при удалении формы f
listbox:=TListbox.Create(panel); // при удалении панели (panel.Free)
btn:=TButton.Create(nil); 
btn.Parent:=f; // А вот кнопка ОСТАНЕТСЯ

Вар 2. FormX.Release;

Destroys the form and frees its associated memory.

Delphi syntax:

procedure Release;

[Алексей_2012]

спасибо! release помог, но вот в чем еще загвоздка...

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;

почему-то в приведенном мной выше коде если написать это:

 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;

то данные в мемо загружаются не полностью, а именно:

если щелчок по первой строке списка, то мемо пустое, а по остальным-все работает как должно.

Ставил разные "костыли" в итоге решил убрать этот кусок кода, но тогда дубляж создается того окна, который открыт. Как решить проблему с первой строкой списка? (ну как вы поняли-путь к файлу)

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

Вроде ничего криминального, только если в листбоксе путь к файлу, то зачем брать путь из ts_two.strings
И ещё, попробуй декодировать в переменную, а уж потом отправлять в мемо)))

[Алексей_2012]

Оговорка, имена файлов, а путь в списке.

Смысл заводить переменную? Читайте внимательнее: все грузит отлично, но не содержимое файла из первого элемента списка. Другие же файлы грузятся как надо.