怎样让ALT+F4不对本程序的窗体有效

Question

都有什么样的方法
谢谢

Answer 1

调用API把ALT+F4注册成你自己的热键就行了。

Answer 2

双击窗体event的ONCloseQuery添加过程:procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);    Canclose := False;
end; 就可搞定.

Answer 3

先把的Form的KeyPreview设为TRUE
然后
procedure TSetUnitFrm.FormKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
begin
    if (Key = VK_F4) and (ssAlt in Shift) then
    begin
        MsgBox('Wanna Close ME? NoWay.:)');
        Abort;
    end;
end;

Answer 4

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  Handled := (GetKeyState(VK_MENU) < 0) and (Msg.CharCode = VK_F4);
end;