Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.033 c
1-1097589032
П7
2004-10-12 17:50
2004.10.31
Анимированне обои раб.стола


4-1092918672
menart
2004-08-19 16:31
2004.10.31
Как можно остановить службу на какое-то и потом ее запустить?


8-1091519068
__guest
2004-08-03 11:44
2004.10.31
Получение видео/аудио потоков


3-1096527989
Виктор
2004-09-30 11:06
2004.10.31
Keyfields с двумя полями в Lookup поле.


14-1097613020
Ihor Osov'yak
2004-10-13 00:30
2004.10.31
http://www.km.ru/news/ - заслуживает доверия, или желтизна?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский