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

[haley_hj]

如何控制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;

[bluemeteor]

基本上没有什么区别

都是判断frmBomPart这个窗体变量是否已经指向了一个窗体实例

如果没有...那么说明还没有窗体，就可以创建了