| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Модальная форма?

Kost ©   (2004-07-13 13:56:00) 

Как в TForm.OnShow узнать, что было вызвано:
Show() или ShowModal()

---

cae   (2004-07-13 14:16:00) [1]

Я думаю можно так :

procedure TForm2.FormShow(Sender: TObject);
begin
if fsModal in FormState then
  ShowMessage('Modal')
   else
  ShowMessage('Not modal') ;
end;


---

Reindeer Moss Eater   (2004-07-13 14:05:00) [2]

with TFormModal.Create(application) do
try
 OnShow := nil;
 //Инициализация всего чего надо
 ...
 ShowModal;
finally
 Free;
end;

---

Наверх