如何将alt+F4屏蔽

Question

OnCloseQuery
  if (...) then
    CanClose = false;

Answer 1

使alt+F4成为程序的热键，在此热键中不处理任何事情就可以了。

Answer 2

屏蔽Alt+F4procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
begin 
  CanClose:=FALSE; 
end;

Answer 3

上面各位的也可以哦，我的也行；把form1的keypreview属性设成true，然后procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
if key=vk_f4 then key:=0;
end;
这样也行啦！！！！！！！！