Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Вниз

Модальная форма?   Найти похожие ветки 

← →
Kost ©   (2004-07-13 13:56) [0]

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

---

← →
Reindeer Moss Eater ©   (2004-07-13 14:05) [1]

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

---

← →
cae ©   (2004-07-13 14:16) [2]

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

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


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.038 c