как заблокировать прогу от 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]

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

А не проще заблокировать 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]

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

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;

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