Form-Event global für alle Formulare überschreiben?

[Olli73]

Mit var Parameter und folgendem Aufruf funktioniert dein Beispiel:

CreateAndShowForm(TForm2, TCustomForm(Form2));

[Uwe Raabe]

Ich will auch mal:

Delphi-Quellcode:

unit uFormUtils;

interface

uses
  Vcl.Forms;

type
  TFormUtils = record
  public
    class procedure ShowForm<T: TCustomForm>(var Instance: T); static;
  end;

implementation

class procedure TFormUtils.ShowForm<T>(var Instance: T);
begin
  if Instance = nil then begin
    Instance := T.Create(Application);
  end;
  Instance.Show;
end;

Der (typsichere) Aufruf wäre dann in etwa so: TFormUtils.ShowForm<TForm2>(Form2);

[günni0]

Ich danke allen die mir geholfen haben.

Ich bin auf einem guten weg mit der Umstrukturierung meiner Codebasis. Der erste Schritt ist nun erst einmal, Formulare dynamisch zur Laufzeit zu erzeugen.
Habe noch gut 20 Formulare vor mir, die angepasst werden müssen. Dauert also noch etwas.