Блокировка кнопки закрытия модального окна.

← →
F1 (2005-10-24 10:44) [0]

Добрый день.
Каким обоазом можно сделать недоступной кнопку закрытия окна?
Заранее благодарен.

← →
Desdechado © (2005-10-24 10:57) [1]

пишешь в обработчике OnClose
Action := caNone;

← →
ZZZ (2005-10-24 11:43) [2]

выдает ошибку: несоответствие типов

← →
Leonid Troyanovsky © (2005-10-24 11:44) [3]

> F1 (24.10.05 10:44)

> Каким обоазом можно сделать недоступной кнопку закрытия окна?

var amenu: HMenu; begin with TFormX.Create(nil) do try amenu := GetSystemMenu(Handle, False); EnableMenuItem(amenu, SC_CLOSE, MF_BYCOMMAND or MF_DISABLED); ShowModal; .. finally Free; end; end;
--
Regards, LVT.

← →
Leonid Troyanovsky © (2005-10-24 11:48) [4]

> ZZZ (24.10.05 11:43) [2]
> выдает ошибку: несоответствие типов

Что, где, когда

--
Regards, LVT.

← →
F1 (2005-10-24 11:50) [5]

1, 2 варианты не проходят

← →
F1 (2005-10-24 11:52) [6]

> Что, где, когда

в 1-ом варианте ошибка: Несоотв. типов.

← →
F1 (2005-10-24 11:53) [7]

> Desdechado © (24.10.05 10:57) [1]
> пишешь в обработчике OnClose
> Action := caNone;

Несоотв. типов.

Событие TForm.OnCloseQuery

> F1 (24.10.05 11:50) [5]
> 1, 2 варианты не проходят

> в 1-ом варианте ошибка: Несоотв. типов.

Не верю.

--
Regards, LVT.

procedure TForm1.FormCreate(Sender: TObject); var hMenuHandle:HMENU; begin hMenuHandle := GetSystemMenu(Handle, FALSE); IF (hMenuHandle <> 0) THEN DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); end;

Блокировка кнопки закрытия модального окна. Найти похожие ветки