Цитата:
Сообщение от Zazazu
вот программный код
|
Мой вариант кода работает - второе окно TFormInputData не создаётся - проверил.
Скорее всего ты не полностью мой код скопировал или вставил. Вот вырезка реализации модуля Unit1 с моим кодом:
Код:
.....
implementation
uses
Unit2, Unit3;
{$R *.dfm}
var
fr: TForm = nil;
procedure TForm1.ButtonImportFileClick(Sender: TObject);
begin
// Если окно ещё не создано - создаём его
if not Assigned(fr) then fr := TFormInputData.Create(Application);
fr.Show;
end;
end.