DELPHI判断创建动态窗体函数，已存在则直接显示

//==============================================================================
// if mark=0 then Tform.show else Tform.showmodal
//==============================================================================

procedure OpenChildForm(FormClass:TFormClass;var Form:TForm;Mark:Integer=0);
begin
  if Mark=0 then
  begin
    if not Assigned(form) then Application.CreateForm(FormClass,Form);
    if Form.WindowState=wsminimized then Form.WindowState:=wsMaximized;
  end else begin
    form:=FormClass.Create(nil);
    Form.ShowModal;
    Form.Free;
  end;
end;

评论

2 楼 hred 2009-10-29  

一个panel

1 楼 duronshi 2009-03-14  

FormName.Parent:= frmMain.Pnl2;
Pnl2是什么