Erben-Forms in Prozedur öffnen möglich?

[HeikoAdams]

Hallo,
in unserer Anwendung gibt es ca 15 Forms, die von einem Urahnen abgeleitet wurden. Bislang wird jedes Form nach dem Schema

Delphi-Quellcode:

if ErbeForm = nil then
 ErbeForm:= TErbeForm.Create(self)

if not ErbeForm.Active then
 ErbeForm.Show

Am liebsten würde ich das ganze mit einer Prozedur erschlagen, die dann das übergebene Form nach dem oben genannten Schema öffnet. Ist das überhaupt möglich?

[mkinzler]

Warum soll das nicht möglich sein?

[sx2008]

Ungetested, aber so sollte es gehen:

Delphi-Quellcode:

procedure CreateAndOpenForm(var frm:TForm; fc:TFormClass)
begin
  if not Assigned(frm) then
    frm := fc.Create(nil {Application});
  if frm.Active then
  begin
    if frm.WindowState = wsMinimized then
      frm.WindowState := wsNormal;  // falls Form minimiert ist und der User es nicht sieht
    frm.BringToFront;
  end
  else
    frm.Show;
end;