Перехват события

[juden]

Здравствуйте.
Как можно сделать чтобы при нажатии на клавиши Alt+F4 программа не закрывалась.

[mrandrey]

вот и все:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if(key=115)and(ssAlt in Shift)then
key:=0;
end;

[Shuraken]

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

[Ntlegend]

поставь на форму TMainMenu, создай невидимый пункт этого меню и назначи ему активацию по Alt+F4, на нажатие этого пункта не пиши ничего.
Этот метод поможет токо от Alt+F4.


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caNone// прога продолжает работать как и была
Action:=caHide// прога продолжает работать, токо скрывается от пользователя
Action:=caFree// прога закрывается
Action:=caMinimize//хз
end;

[juden]

СПАСИБО!!!!!!!! Все сделал!!!!!!!!!!!!!!!!!!!!!

[mrandrey]

NTLEGEND и Shuraken, в ваших примерах окно вообще не закроется и не тоько по Alt+F4