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

[günni0]

Jascoul, das funktioniert genau wie es soll. Kaum erstelle ich die Instanz aber über eine Prozedur, um doppelten und dreifachen Code zu sparen, kracht es sobald ich auf die Instanz zugreife.

Für alle die mir nicht glauben, da unten ist ein Beispielprojekt (DPR beachten, da wird Form2 absichtlich nicht erzeugt).

Zitat:

Versuche mal AFormInstance als var parameter zu deklarieren.

Dann meckert leider der Compiler wegen inkompatibler Typen.

[Fritzew]

So sollte das gehen.....

Delphi-Quellcode:

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
 TForm1 = class(TForm)
  Button1: TButton;

  procedure Button1Click(Sender: TObject);
 private
  {Private-Deklarationen}
   FmyForm2 : Tcustomform;
 public
  {Public-Deklarationen}
 end;

var
 Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

(*
   Forminstance muss var sein !!!!!
*)

procedure CreateAndShowForm(const AFormClass: TFormClass; var AFormInstance: TCustomForm);
begin
 if not Assigned(AFormInstance) then
  AFormInstance := AFormClass.Create(Application);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 CreateAndShowForm(TForm2, FmyForm2);
 FmyForm2.Show;
end;

end.

[Jasocul]

Lass mal das "const" bei den Parametern weg.

Ich kann deinen Source leider im Moment nicht prüfen, da ich hier kein Delphi zur Verfügung habe.

[günni0]

Zitat:

FmyForm2 : Tcustomform;

Doppelte Variablen dann leider. Scheint wohl nicht anders zu gehen.

[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.