我现在新建了一个新的project
只有一个form
也只有如下的代码:
//------------------------------------------------------------
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssAlt in Shift) and (Key = VK_F4) then
Key := 0;
end;
//------------------------------------------------------------
可惜我一按ALT+F4
还是将窗体给关了!实在是没办法!!