Текущий архив: 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.45 MB
Время: 0.037 c
