Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.022 c
9-1080911413
Cash
2004-04-02 17:10
2004.07.25
Collision на каждом кадре анимации


3-1088681917
Sir John
2004-07-01 15:38
2004.07.25
Передача структуры таблицы


1-1089259525
Артем К.
2004-07-08 08:05
2004.07.25
Форма без заголовка, без рамки, но может изменять размеры?


3-1088576437
AleKo
2004-06-30 10:20
2004.07.25
Кол-во обработанных записей ADOCommand


1-1089450222
Pafnuty
2004-07-10 13:03
2004.07.25
Программно вставить текст в TRxRichEdit