打开窗口.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 23 行

procedure TfMain.OpenForm(FormClass: TFormClass; var fm;
  AOwner: TComponent);
var
  i: integer;
  Child:TForm;
begin
  for i := 0 to Screen.FormCount -1 do
    if Screen.Forms[i].ClassType=FormClass then begin
      Child:=Screen.Forms[i];
      if Child.WindowState=wsMinimized then
        ShowWindow(Child.handle,SW_SHOWNORMAL)
      else
        ShowWindow(Child.handle,SW_SHOWNA);
      if (not Child.Visible) then Child.Show;
      Child.BringToFront;
      Child.Setfocus;
      TForm(fm):=Child;
      Exit;
    end;
  Child:=TForm(FormClass.NewInstance);
  TForm(fm):=Child;
  Child.Create(AOwner);
end;