为什么弹出窗口以后自定义的热键就不能用了呢？

Question

procedure TForm1.Button9Click(Sender: TObject);
begin
    form1.FormStyle:=fsnormal;
    Application.CreateForm(TForm2, Form2);
    form2.ShowModal;
    form2.Free;
end;
没弹出窗口前热键使用都没问题，但是弹出窗口后再将弹出窗口关提，再按热键就没反应了。。是何原因，麻烦解决

Answer 1

好像是注册热键的问题，只是在程序运行时注册了热键，更改后用了一个timer，将注册热键的代码放在里面了，运行倒是没问题了，不知道会不会对程序有其他影响。。

Answer 2

    with TForm2.create(nil) do
    begin
     try
      ShowModal; 
     finally 
      Free;
     end;
   end;试试……

Answer 3

不是这个问题，算了，自己解决了，还是添加个TIMER