Formular Variable in allgemeiner Funktion

[Andreas L.]

Wenn die Variable immer den selben Namen und Typ hat kannst du eine "Basis"-Form erstellen und davon ableiten:

Delphi-Quellcode:

...

type
  TfrmBasis = class(TForm)
  ...
  private
    FDeineVar: Integer;
    FOnDeineVarChanged: TNotifyEvent;
  protected
    procedure SetDeineVar(Value: Integer);
  public
    procedure ShowDeineVar;
    property DeineVar: Integer
      read FDeineVar write SetDeineVar;
    property OnDeineVarChanged: TNotifyEvent
      read FOnDeineVarChanged write FOnDeineVarChanged;
  end;

  TfrmBasisClass = class of TfrmBasis;

...

procedure TfrmBasis.ShowDeineVar;
begin
  ShowMessage('DeineVar ist "' + IntToStr(Self.DeineVar) + '"');
end;

procedure TfrmBasis.SetDeineVar(Value: Integer);
begin
  if FDeineVar <> Value then
  begin
    FDeineVar := Value;
    // Hier kannst du z. B. die Daten verarbeiten,
    // eine Routine aufrufen oder
    // ein Event auslösen:
    if Assigned(FOnDeineVarChanged) then
      Self.OnDeineVarChanged(Self);
  end;
end;

Und so leitest du ganz einfach ein Form davon ab:

Delphi-Quellcode:

...

uses
  Windows, ...,
  Basis; // <-- Basis-Unit/Form einbinden

type
  TfrmEins = class(TfrmBasis) // <-- Form von Basis ableiten
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

TfrmEins enthält nun alle Eigenschaften, Methoden, Variablen und Controls von TfrmBasis.

Und so kannst du eins aufrufen:

Delphi-Quellcode:

...

procedure TfrmMain.ShowForm(AFormClass: TfrmBasisClass;
  ADeineVar: Integer = 0);
var
  FormObj: TfrmBasis;
begin
  FormObj := AFormClass.Create(Self);
  try
    FormObj.DeineVar := ADeineVar;
    if FormObj.ShowModal = mrOK then
      Self.ShowCurrentDeineVar(FormObj);
  finally
    FreeAndNil(FormObj);
  end;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  Self.ShowForm(TfrmEins, 1234);
  Self.ShowForm(TfrmZwei, 5678);
  ...
end;

Im Anhang ist ein vollständiges Demo-Projekt inkl. Exe. Da habe ich für dich noch ein paar weitere Routinen eingebaut die dir die Verwendung verdeutlichen. Ich hoffe ich konnte dir damit helfen