请问？？先谢了 ：）

Question

请问各位，怎么样屏蔽一些快捷建，比如alt+f4什么的？？

Answer 1

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  end;procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.CmdType <> SC_CLOSE then
    inherited
end;

Answer 2

在KEYPRESS事件中处理..这个是最烂的方法..
楼上的比较好..

Answer 3

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=VK_F4) and ([ssALT]=shift) then
    key:=0;
  if (key=VK_F12) and ([ssALT]=shift) then
    close;
end;