ALT+F4

← →
Новичок!!! (2004-11-07 10:09) [0]

Пожалуйста, подскажите, как сделать так, чтобы форма не закрывалась по ALT+F4? Под все версии Windows!

← →
Плохиш © (2004-11-07 10:19) [1]

OnCloseQuery + F1

← →
KSergey © (2004-11-07 10:22) [2]

OnCloseQuery?

← →
Cardinal © (2004-11-07 17:42) [3]

Если требуется, чтобы по клику на крестику форма закрывалась, а по Alt + F4 - нет, то выставим Form1.KeyPreview в true.
Затем в обработчике OnKeyDown пишем:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key = VK_F4) and (Shift = [ssAlt]) then b := false; end;

А в обработчике события OnCloseQuery так:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin canclose := b; b := true; end;

← →
Cardinal © (2004-11-07 17:44) [4]

Да, еще забыл, что надо создать глобальную булевую переменную b с начальным значением false:
b: boolean = true;

← →
Cardinal © (2004-11-07 17:47) [5]

> Да, еще забыл, что надо создать глобальную булевую переменную
> b с начальным значением false:

Ошибочка вышла, поспешил :-(. Начальное значение равно true.

← →
Step[B.M.] (2004-11-07 20:14) [6]

OnCloseQuery

Abort;

Меню у формы или TActionList есть, если есть, то надо назначить эту комбинацию пункту меню и пустой обработчик.

Ну если нужно чтобы вообще не закрывалась, ни по ALT+F4, ни по крестику, то тогда как сказали обработка OnCloseQuery:

CanClose := False;

ALT+F4 Найти похожие ветки