现在有form1与form2两个窗体，我怎样才能按F2键切换这两个窗体??

Question

现在有form1与form2两个窗体，我怎样才能按F2键切换这两个窗体??

Answer 1

在Form1里设置OnKeyDown事件
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_F2 then
    Form2.Show;
end;在Form2里设置OnKeyDown事件
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_F2 then
    Form1.Show;
end;

Answer 2

在Form1里设置OnKeyDown事件
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_F2 then
    begin
    form1.hide;
    Form2.Show;
   end;
end;在Form2里设置OnKeyDown事件
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_F2 then
   begin
   form2.hide;
    Form1.Show;
  end;
end;