![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#11
|
||||
|
||||
![]() рекомендую создавать и разрушать формы по мере их необходимости - сделать следующее:
1. убрать все формы (кроме главной) из автосоздаваемых: Project --> Options --> Forms --> переместить все, кроме главной (и модулей) в Available Forms 2. при надобности создавать нужную форму: Код:
if (not Assigned(form2)) then form2:=Tform2.Create(Self); form2.show; {или form2.showModal;} Код:
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; form2:=nil; end; Я за здоровый экстрим! Спасибо за "спасибо") |