把form1的keypreview属性设成true，然后在FORM1的KeyDown写代码：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
if key=vk_f4 then key:=0;
end;
这样就可以了！
alt+f4主要用来关闭当前的窗口，如果您一直不停滴按alt+f4，最终您将看到“关于计算机”的选择菜单。
这个组合键是微软给操作系统预留的，任何程序不得更改或禁用alt+f4
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024