Главная страница
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.055 c
14-1097132909
Mike Kouzmine
2004-10-07 11:08
2004.10.31
На юге африки нашли снежного человека!


14-1097698629
Marser
2004-10-14 00:17
2004.10.31
Андорра-Македония 1:0


1-1097691283
Mishenka
2004-10-13 22:14
2004.10.31
Treeview с галочками...


4-1096129821
sh@de
2004-09-25 20:30
2004.10.31
Поцесс с системной учюзаписью


14-1097473350
Russel
2004-10-11 09:42
2004.10.31
Странная проблема с открытием файла