Delphi中，如何让子窗口只开一个？

Question

如题：         Delphi中，如何让子窗口只开一个？         当第二次打开该窗口时，会自动激活当前已打开的子窗口？
       
         谢谢！

Answer 1

procedure TfrmMain.ToolButton5Click(Sender: TObject);
var
  i : integer;
begin
  for I := 0 to  Screen.FormCount-1 do
  begin
    showMessage(Screen.Forms[i].Name);  // 在這裏比較下。
  end;
end;