Alt+F4

[Pedro]

Как сделать чтобы при нажатии Alt+F4 прога не закрывалась?

[Master-Skull]

Обработай событие OnCloseQuery:

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

[Tayfun]

Как отключить Alt+F4
1)В событие формы OnCloseQuery задайте CanClose := false
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := false;
end;
2)
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if my_flag = false then CanClose := false;
end;
где my_flag - глобальная переменная. Она всегда false, а в true устанавливается только в событии нажатия кнопки "Отмена".
3)
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if my_flag = false then CanClose := false;
end;
CanClose := my_flag;
4)
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssAlt]) and (Key = VK_F4) then Key := 0;
end;
5)
TForm2 = class....
...
procedure WMSYSCOMMAND(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
...
procedure TForm2.WMSYSCOMMAND(var Msg: TWMSysCommand);
begin
if Msg.CmdType <> SC_CLOSE then inherited;
end;

[Alex21]

Только обсуждали:
http://www.programmersforum.ru/showthread.php?t=4746