Главная страница
    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.048 c
1-1097594241
Wish
2004-10-12 19:17
2004.10.31
Как сохранить в INI свойства TFont a типа Bold или Italic?


4-1096390666
hgd
2004-09-28 20:57
2004.10.31
Скажите как нажать кнопку в другой открытой программе


14-1097561753
SPeller
2004-10-12 10:15
2004.10.31
Удалять или не удалять? Вот в чем вопрос


1-1097183857
Justas
2004-10-08 01:17
2004.10.31
Массив в файл


1-1098096942
Term
2004-10-18 14:55
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский