Как создать событие закрытия формы из другого Юнита?

Question

[Andrey]

Суть такова: в Delphi (и не спрашивайте, почему именно в Delphi) нужно в одном юните создать форму из другого. Делается это подключением соответствующего Юнита.

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, LView;
...
procedure TForm2.ButtonForwardClick(Sender: TObject);
begin
  LView.name := 'l'+Form2.RadioGroup1.ItemIndex+'.rtf'; // LView - 3-й юнит
  Form3.Create(self);
  Form2.Enabled := false;
end;

После создания формы 3, вторая отключается. Однако включить её из 3-го юнита нельзя, ибо компилятор начинает ругаться на цикличность обращений юнитов.
Вопрос такой: можно в юните 2 прописать ивент на закрытие формы 3?

Answer 1

[Mercury13]

1. Перемести «uses соответствующую форму» из интерфейса в implementation. Такие циклические обращения разрешены.
Правило хорошего тона: что угодно — uses, const, var — желательно держать в implementation, если только они не нужны интерфейсу.
Впрочем, подобный циклический «комок грязи» говорит о том, что архитектура программы плохо продумана, и для больших программ это нежелательно.

2. Явно неверный код Form3.Create(self);
Если создать форму — то правильно Form3 := TForm3.Create(self);
Если кто-то создал, а ты повторно вызвал конструктор — зачем такое?

Comments

[Andrey]

1. Спасибо. По крайней мере компилятор теперь не ругается.
2. Ок. Я не знал. Так-то в проекте автосоздание остальных форм отключено.

[Mercury13]

Andrey: А про создание я тоже дописал. Код Form3.Create(self); неверен.

[Andrey]

Mercury13: Я тоже дописал, код действительно не верен. Сейчас работает

[Mercury13]

Andrey: Тогда отмечай решением?