Показать сообщение отдельно
  #11  
Старый 17.02.2014, 09:38
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

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