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

← →
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]

СПАСИБО !!!

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);

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

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