如何控制MDI中同一窗體(fsMDIChild)在同一程式內不能打開多個﹖

Question

如何控制MDI中同一窗體(fsMDIChild)在同一程式內不能打開多個﹖
 
以下兩段代碼均能達到相似目的﹐但不解其原理及區別,有沒有更好的方法?。
 
procedure TfrmMain.N51Click(Sender: TObject);
begin
   IF FRMBOMPART = NIL THEN
     begin
       frmBomPart := TfrmBomPart.Create(frmMain);
       frmBomPart.Show;
    end;
end;
 
procedure TfrmMain.N51Click(Sender: TObject);
begin
    if NOT assigned(frmbompart)  then 
       begin
           frmBomPart := TfrmBomPart.Create(frmMain);
          frmBomPart.Show;
      end;
end;

Answer 1

基本上没有什么区别都是判断frmBomPart这个窗体变量是否已经指向了一个窗体实例如果没有...那么说明还没有窗体，就可以创建了