MDI формы

@First · Регистрация: 09.06.2011

Author24 — интернет-сервис помощи студентам

Скажите можно ли как то сделать что бы в MDI запускались только один раз - тоесть вот у меня запущена главная форма и я нажал несколько раз на кнопку появилось много дочерних, а как сделать что бы не появлялось их много, а только одна и снова она могла открыться только после того как ее закрыть, зарание СПС

@rdama · 27.01.2012, 08:00

Ну проверяй. Если окно создано, то отобрази его. Если надо перегрузить, то убей и снова создай.

Delphi

  
try
    Application.FindComponent(_rgr_frm_.Name).Destroy;
  except
  end;
  Application.CreateForm(T_rgr_frm_,_rgr_frm_);
  _rgr_frm_.Show;

Ну вот что то подобное.

@First · 27.01.2012, 09:12 **[ТС]**

Сообщение от rdama

Ну проверяй. Если окно создано, то отобрази его. Если надо перегрузить, то убей и снова создай.

Delphi

  
try
    Application.FindComponent(_rgr_frm_.Name).Destroy;
  except
  end;
  Application.CreateForm(T_rgr_frm_,_rgr_frm_);
  _rgr_frm_.Show;

Ну вот что то подобное.

я если честно нечего не понял - а эта процедура вызвала многократное открытие формы, я стал делать кнопки неактивными((( что бы работало так как надо

@rdama · 27.01.2012, 09:51

Сообщение от First

я если честно нечего не понял

Ну можно и объяснить. Но объяснять код из 3 строк...это полный пизнесс.
Что вам не понятно из кода?
Ищем компонент с указанным именем. В нашем случае форма.
Находим убиваем и создаем новую.
Не находим, то гасим исключение и создаем новую.

Сообщение от First

а эта процедура вызвала многократное открытие формы

Ну а это уже скорее вопрос к тому как вы строите работу с MDI формами.
И как вы пишите свой код. Есть сомнения в нем раз у вас такое поведение форм.
А еще вам наверно надо почитать, что вообще есть MDI и SDI интерфейсы.

@Надобр · 29.01.2012, 19:51

Я, если честно, тоже не поняла. Ура - нас двое))

Не знаю, поможет или нет в данном случае воспользоваться методом MDIChildCount. Во всяком случае, описанная ниже процедура не дает многократно открывать окна.

Delphi

procedure TMainForm.CreateButtonClick(Sender: TObject);
begin
ChildForm:=TChildForm.Create(Owner);
if MDIChildCount>1 then
ChildForm.Free;
 
end;

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
		1
	MDI формы 27.01.2012, 05:38. Показов 4298. Ответов 4 Метки нет (Все метки) Скажите можно ли как то сделать что бы в MDI запускались только один раз - тоесть вот у меня запущена главная форма и я нажал несколько раз на кнопку появилось много дочерних, а как сделать что бы не появлялось их много, а только одна и снова она могла открыться только после того как ее закрыть, зарание СПС 0

@rdama 569 / 292 / 12 Регистрация: 28.01.2011 Сообщений: 1,326
	27.01.2012, 09:51	4
	Сообщение от First я если честно нечего не понял Ну можно и объяснить. Но объяснять код из 3 строк...это полный пизнесс. Что вам не понятно из кода? Ищем компонент с указанным именем. В нашем случае форма. Находим убиваем и создаем новую. Не находим, то гасим исключение и создаем новую. Сообщение от First а эта процедура вызвала многократное открытие формы Ну а это уже скорее вопрос к тому как вы строите работу с MDI формами. И как вы пишите свой код. Есть сомнения в нем раз у вас такое поведение форм. А еще вам наверно надо почитать, что вообще есть MDI и SDI интерфейсы. 0

	29.01.2012, 19:51