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

Вниз

Определить, каким образом вызвана форма...   Найти похожие ветки 

 
Tormoz   (2004-10-14 15:23) [0]

Уважаемые Мастера!

Существует ли способ определить,каким образом вызвана форма:

MyForm.Show or MyForm.ShowModal ?

Например,в обработчике кнопки на MyForm ?


 
Алхимик ©   (2004-10-14 15:26) [1]

Перед показом в MyForm.Tag пиши 0 если Show и 1 если ShowModal,
а в обработчике кнопки смотри что в Tag и делай выводы.


 
Eugene1501   (2004-10-14 15:40) [2]

Смотри свойство FormStyle


 
begin...end ©   (2004-10-14 15:44) [3]


> Tormoz   (14.10.04 15:23)

if fsModal in MyForm.FormState then
 // форма показана модально
else
 //форма показана немодально


> [2] Eugene1501   (14.10.04 15:40)

FormStyle здесь не поможет, ИМХО.


 
Tormoz   (2004-10-14 15:52) [4]

СПАСИБО !!!


 
Fay ©   (2004-10-14 15:52) [5]

2 begin...end ©   (14.10.04 15:44) [3]
function TCustomForm.ShowModal: Integer;
var
 WindowList: Pointer;
 SaveFocusCount: Integer;
 SaveCursor: TCursor;
 SaveCount: Integer;
 ActiveWindow: HWnd;
begin
 CancelDrag;
 if Visible or not Enabled or (fsModal in FFormState) or
   (FormStyle = fsMDIChild) then
   raise EInvalidOperation.Create(SCannotShowModal);
 if GetCapture <> 0 then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
 ReleaseCapture;
 Application.ModalStarted;
 try
 Include(FFormState, fsModal);


 
Fay ©   (2004-10-14 15:53) [6]

Сорри 8) Плохо прочитал
FormStyle здесь не поможет, ИМХО.
8)



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

Текущий архив: 2004.10.31;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.023 c
4-1096305827
Kolan
2004-09-27 21:23
2004.10.31
Проблема с регионом


14-1097693202
Gero_
2004-10-13 22:46
2004.10.31
Смерть винды


3-1096959444
Пуртик
2004-10-05 10:57
2004.10.31
Зависание проги...


14-1097432161
Abuzer
2004-10-10 22:16
2004.10.31
Какой выбрать хост?


4-1095750788
sadman
2004-09-21 11:13
2004.10.31
Проверка корректности имени файла