Модальное окно в MDI приложении
От: pave1  
Дата: 26.10.02 17:29
Оценка:
Мне надо создать модальное окно в MDI-приложении. Объясню подробнее что я
хочу. Например у меня в MDI приложении есть три окна, назову их условно
A,B,C; так вот окна A и B являются простыми окнами вызываемыми из главного
окна MDI, окно С должно быть модальным окном по отношению к окну B, т.е.
это окно будет вызываться из окна B, остальные окна A и главное окно MDI
должно быть доступно. Вот мой вопрос: Как мне сделать модальное окно
только для окна B? Если можно, то с примером.

Спасибо за внимание.
Re: Модальное окно в MDI приложении
От: Hacker_Delphi Россия  
Дата: 28.10.02 09:19
Оценка:
Здравствуйте pave1, Вы писали:

procedure TB.ShowFormCClick(Sender: TObject);
begin
  B.Enabled := false;
  C := TC.Create(Application);
end;


procedure TC.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  B.Enabled := true;
end;

либо код с Disable перенеси в TC.FormShow
... << RSDN@Home 1.0 alpha 12 РУЛИТ!!! >>
Если при компиляции и исполнении вашей программы не происходит ни одной ошибки — это ошибка компилятора :)))
Re[2]: Модальное окно в MDI приложении
От: pave1  
Дата: 28.10.02 10:22
Оценка:
Здравствуйте Hacker_Delphi, Вы писали:

HD>Здравствуйте pave1, Вы писали:


HD>
HD>procedure TB.ShowFormCClick(Sender: TObject);
HD>begin
HD>  B.Enabled := false;
HD>  C := TC.Create(Application);
HD>end;
HD>


HD>
HD>procedure TC.FormClose(Sender: TObject; var Action: TCloseAction);
HD>begin
HD>  Action := caFree;
HD>  B.Enabled := true;
HD>end;
HD>

HD>либо код с Disable перенеси в TC.FormShow

Спасибо Hacker_Delphi. Я тоже как раз до такого метода додумался.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.