求大神指导

comeheres

procedure WMKeyDown(var msg:TMessage);message WM_KEYDOWN;
procedure WMSysKeyDown(var msg:TWMSysKeyDown);message WM_SysKeyDown;
procedure WMSysKeyUp(var msg:TWMSysKeyUp);message WM_SysKeyUp;

procedure TForm1.WMKeyDown(var msg: TMessage);
begin
  if (msg.WParam=VK_F4) and (Alt=True) then
    msg.WParam:=0;
end;

procedure TForm1.WMSysKeyDown(var msg: TWMSysKeyDown);
begin
  if msg.CharCode=VK_MENU then
    Alt:=True;
end;

procedure TForm1.WMSysKeyUp(var msg: TWMSysKeyUp);
begin
  if msg.CharCode=VK_MENU then
    Alt:=False;

wahaha136

看不懂啊