Поиск
Показаны результаты для тегов 'exception'.
Найдено: 1 результат
-
на OnClose формы делаем так: procedure TForm2.OnClose(Sender: TObject; var Action: TCloseAction); begin Action := TCloseAction.caFree; end; и освобождаем форму не Free, а DisposeOf: Form2 := TForm2.Create(nil); Form2.ShowModal; Form2.DisposeOf;