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

markieren

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?

Warum soll das nicht möglich sein?

Ungetested, aber so sollte es gehen:

zusammenfalten · markieren

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;