Скачать: CL | DM;

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;

---

← →
Anatoly Podgoretsky ©   (2004-11-07 20:28) [7]

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

---

← →
Piter ©   (2004-11-07 22:22) [8]

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

CanClose := False;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c