怎么使ALT+F4不关闭程序，而ALT+F10才关闭呢？（我的代码有错？？）

Question

Form1.KeyPriview设置为True～～ procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssAlt in shift) And (Key=VK_F4) then
    begin
      CloseTag:=False;
      //FormCloseQuery(sender,CloseTag);
    end
  else if (ssAlt in shift) And (Key=VK_F10) then
    begin
      CloseTag:=True;
      //FormCloseQuery(sender,CloseTag);
      Close;
    end;
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=CloseTag;
end;

Answer 1

可以关闭的呀而且不用调用这个函数：FormCloseQuery(sender,CloseTag);

Answer 2

Form1.KeyPriview不用设置为True也行的，不过那个函数真的没必要调用 

Answer 3

先加点分哈现在把Form1.KeyPriview设成True就可以了呢，FormCloseQuery(sender,CloseTag)不调用也行了，谢谢大家哈马上结分