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

как заблокировать прогу от Alt+F4 ?   Найти похожие ветки 

← →
Олег   (2003-01-17 15:20) [0]

Помогите пожалуйста, может кто знает, как сделать так, чтобы комбинацией Alt+F4 нельзя было закрыть программу???

---

← →
Skier ©   (2003-01-17 15:21) [1]

OnCloseQuery -> CanClose
OnClose -> Action

---

← →
Th ©   (2003-01-17 15:21) [2]

событие OnCloseQuery

---

← →
Олег   (2003-01-17 15:38) [3]

простите мою тупость :( , но каким образом можно добиться желаемого эффекта, этим событием onCloseQuery ???

---

← →
Skier ©   (2003-01-17 15:42) [4]

CanClose := False;

---

← →
Олег   (2003-01-17 15:43) [5]

спасибо, премного благодарен

---

← →
Думкин ©   (2003-01-17 15:44) [6]

Только может получится, что и по другому в итоге не закроешь - стандартным образом. %-)

---

← →
mukha ©   (2003-01-17 21:11) [7]

А не проще заблокировать F4 чтобы не работала комбинация клавиш Alt+F4. Сам Alt блокировать не стоит, т.к. он может пригодиться в др. комбинациях. Ну и для самой формы KeyPreview поставить в true.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_F4 then Key:=0;
end;

---

← →
Urn   (2003-01-17 21:28) [8]

Не слушай его, это большая задница!

---

← →
DVM ©   (2003-01-17 23:34) [9]

protected
{ Protected declarations}
Procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;

....

Procedure TFMain.WMGetSysCommand(var Message : TMessage) ;
Begin
IF (Message.wParam = SC_close)
Then begin
AShutDownExecute(FMain);
end
Else Inherited;
End;

---

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

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



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