Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> MDI и дочерние формы, Как закрыть активную дочернюю форму? 
:(
    Опции темы
Alukard
Дата 31.3.2007, 20:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 145
Регистрация: 14.11.2006

Репутация: нет
Всего: нет
Проект MDI, в нем имеется на родительской форме меню с кнопками - допустим пять кнопок, каждой из которых соответсвует определенная дочерняя форма. Есть проблема, как сделать так, чтобы дочерние формы не присутствовали в памяти постоянно (когда кликаешь на ссылку - форма просто разворачивается а не создается) а как бы уничтожалась активная форма и отображалась та, в зависимости какую кнопку нажал....
Заранее благодарен.
--------------------
Блог блогу рознь: Алукардные РецептыPHP, Операционные системы, Россия & США...etc.
PM MAIL   Вверх
ama_kid
Дата 31.3.2007, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 15
Всего: 95
Как вариант:
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
// Закрываем активную чайлдовую форму. Для удаления формы из памяти - в ее обработчике OnClose поставить Action:=caFree;
 if Assigned(Self.ActiveMDIChild) then Self.ActiveMDIChild.Close;    
// создаем необходимую форму...
 TForm2.Create(Self);
end;

Но вообще, имхо, для таких целей лучше подходит SDI-приложение. MDI подразумевает многооконный интерфейс, поэтому в данном случае будет проглядываться ошибка проектирования...


--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
lukas
Дата 31.3.2007, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15
просто не создавай все формы сразу... создай те которые используются всегда.

Код

program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
 {Application.CreateForm(TForm2, Form2);}
  Application.Run;
end.


и используй чтобы создать форму... 

Код

  Application.CreateForm(TForm2, Form2);


а чтобы удалить...

Код

if form2.show then
form2.destroy // или form2.free



--------------------
http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.
PM MAIL WWW   Вверх
Alukard
Дата 1.4.2007, 07:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 145
Регистрация: 14.11.2006

Репутация: нет
Всего: нет
Цитата(ama_kid @ 31.3.2007,  20:22)
Как вариант:
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
// Закрываем активную чайлдовую форму. Для удаления формы из памяти - в ее обработчике OnClose поставить Action:=caFree;
 if Assigned(Self.ActiveMDIChild) then Self.ActiveMDIChild.Close;    
// создаем необходимую форму...
 TForm2.Create(Self);
end;

Но вообще, имхо, для таких целей лучше подходит SDI-приложение. MDI подразумевает многооконный интерфейс, поэтому в данном случае будет проглядываться ошибка проектирования...

Спасибо, воспользовался Вашим вариантом - помогло. Теперь все работает. Премного благодарен...
--------------------
Блог блогу рознь: Алукардные РецептыPHP, Операционные системы, Россия & США...etc.
PM MAIL   Вверх
MetalFan
Дата 1.4.2007, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
Цитата(lukas @  31.3.2007,  20:27 Найти цитируемый пост)
if form2.show then
form2.destroy // или form2.free

какаято странная проверка... может Form2.Visible? и лучше всетаки free


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0438 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.