Constructor überschreiben

[BadenPower]

Zitat von himitsu:

Das von BadenPower ist eine class function GibMitFormInstanz(DeinErsterParameter: string): TDeineForm; , welche das "Alternativ"e intern macht und zum Schluß die Instanz ausliefert.

So weit wäre ich in diesem Fall nicht gegangen.

Ich denke ein simples

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure ShowWithParam(AValue: String);
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.ShowWithParam(AValue: String);
begin
  Caption := AValue;
  Show;
end;

genügt.

Aufruf dann mit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowWithParam(Caption);
end;