Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Вниз
Блокировка кнопки закрытия модального окна. Найти похожие ветки
← →
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;
Несоотв. типов.
← →
msguns © (2005-10-24 11:53) [8]Событие TForm.OnCloseQuery
← →
Leonid Troyanovsky © (2005-10-24 11:53) [9]
> F1 (24.10.05 11:50) [5]
> 1, 2 варианты не проходят
> в 1-ом варианте ошибка: Несоотв. типов.
Не верю.
--
Regards, LVT.
← →
Antonn © (2005-10-24 12:49) [10]
procedure TForm1.FormCreate(Sender: TObject);
var hMenuHandle:HMENU;
begin
hMenuHandle := GetSystemMenu(Handle, FALSE);
IF (hMenuHandle <> 0) THEN
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.039 c
