Главная страница
    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.04 c
1-1097760706
Volodja
2004-10-14 17:31
2004.10.31
Не добавляется TIcon в TImageList


14-1097732763
zsv
2004-10-14 09:46
2004.10.31
Реестр в Win XP


1-1098078732
Павел
2004-10-18 09:52
2004.10.31
Автопрорисовка Формы.


1-1097686792
AlexKocharin
2004-10-13 20:59
2004.10.31
Копирование Printer.Canvas в Bitmap


4-1096265406
Unknown user
2004-09-27 10:10
2004.10.31
Открытие документов со шрифтами не установленными в системе





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский