Objekte in verschiedenen Formularen zentral initialisieren

[Kas Ob.]

Well, if all your forms are already dpr created, meaning they are in the available forms in project options, then something like this should work

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  // These also could be adjusted and moved to initialization section
  FAlreadyActivated := False;

  // in case OnActivate is used in the project then it should be stored and restored later*
  Application.OnActivate := OnApplicationActivate;
end;

procedure TMainForm.OnApplicationActivate(Sender: TObject);
var
  C: Integer;
begin
  // ExitProc assigned in TApplication.Run meanning it could be used as indicator for done creating forms
  // can help in case Application.Activate wrongly (missused by) being called from a form constructor
  if not Assigned(ExitProc) then
    Exit;

  if not FAlreadyActivated then
  begin
    C := Application.ComponentCount;
    while C > 0 do
    begin
      Dec(C);
      if Application.Components[C] is TForm then
        // InitFormControls(Application.Components[C]);

    end;
  end;
  FAlreadyActivated := True;
  // here is later* ,( to restore original or more useful OnActivate)
end;

For runtime created forms and to minimize and centralize the code, use DDetours to hook TForm.Create then execute the original code followed by your InitFormControls after checking that the TForm is one of yours, if you would use DDetours then you don't any any code like the above.

https://github.com/MahdiSafsafi/DDetours

[Smiley]

Ich habe berücksichtigt, dass die Formulare erst erstellt werden müssen.
Dazu habe ich im frmMain.Activate die Formulare erst created, dann einem Tab des OfficePagers von TMS zugewiesen und danach erst das Show und LoadKunden mit dem InitFormControls ausgeführt.
Bei Ausführung von LoadKunden bzw. InitFormControls(frmKunden As TForm) tritt dann die Exception:
"Zugriffsverletzung an Adresse xxxx in Modul 'Programm.exe' (Offset(xxx)). Lesen von Adresse 00000010."

Code:

procedure TfrmMain.FormActivate(Sender: TObject);
var
  frmTabKunden: TfrmKunden;
  frmTabInteressent: TfrmInteressent;
  frmTabPartner: TfrmPartner;
  frmTabAngestellte: TfrmAngestellte;
  frmTabKassen: TfrmKassen;
  PagerHeight: Integer;
begin
  // --------------------------------------------
  // Größe und Positionierung des Hauptformulars
  PagerHeight := 540; // Höhe des inneren Tabs bis vor das Grid

  frmMain.Top := 20; // Main Formular Position Top und Left
  frmMain.Left := 20;

  frmMain.Height := 1000; // Größe des Main Formulars
  frmMain.Width := 1830;
  // --------------------------------------------

  OfficePager.Height := PagerHeight;

  // --------------------------------------------
  // Formulare in das OfficePager Element einbinden

  // --------------------------------------------
  // TabKunden
  frmTabKunden := TfrmKunden.Create(TabKunden);
  frmTabKunden.Parent := TabKunden;
  frmTabKunden.Align := alClient;
  frmTabKunden.BorderStyle := bsNone;
  frmTabKunden.Show;
  LoadKunden;
  // --------------------------------------------
.
.
.
  OfficePager.ActivePage := TabKunden;
end;

 
procedure TfrmMain.LoadKunden;
var
  s:string;
  i, sp: Integer;
begin
  s:='-----------Kunden----------';
  DebugOut(s);

  InitFormControls(frmKunden); // Hier tritt das Problem auf
  frmKunden.InitFormKunden;
.
.
.
end;

[Uwe Raabe]

Fu erzeugst das Formular in FormActivate auf einer lokalen Variablen frmTabKunden, der Zugriff erfolgt aber auf der globalen Variablen frmKunden. Das kann natürlich nicht klappen.

[Smiley]

Danke Uwe das hast Du richtig erkannt, durch die Zuweisung auf frmTabKunden muss ich diese auch ansprechen und nicht das Original-Formular.
Die Initialisierung der Controls in den Formularen soll nur einmal gemacht werden
und nicht bei jedem Aufruf des Formulars
daher kann ich das nicht im Create der Formulare machen, da dort noch nichts angelegt ist
und im .Show würde er es jedesmal ausgeführt wenn das Formular aufgerufen wird.

[Delphi.Narium]

Dafür ist Loaded zuständig. Es wird einmalig nach dem Einlesen aller DFM ausgeführt. Quasi nach dem Create aber vor dem Show und nur exakt einmal beim Programmstart.

Siehe System.Classes.TComponent.Loaded, das dort beschriebene trifft meiner Meinung nach genau Deine Anforderungen.

Zitat:

When the streaming system loads a form or data module from its form file, it first constructs the form component by calling its constructor, then reads its property values from the form file. After reading all the property values for all the components, the streaming system calls the Loaded methods of each component in the order the components were created. This gives the components a chance to initialize any data that depends on the values of other components or other parts of itself.

Der letzte Satz dieser Beschreibung entspricht doch genau Deiner Anforderung. Und natürlich kannst Du dort auch noch weitere Formulare, ... erstellen, die nicht automatisch (über die dpr o. ä.) erstellt wurden.

Dein im obigen Beispiel im TfrmMain.FormActivate aufgeführter Quelltext, sollte im TfrmMain.Loaded genau das machen, was Du möchtest und erwartest.

[Smiley]

Danke Delphi.Narium, das könnte genau das sein wonach ich suche.
Nachdem ich das Grundproblem erst mal gefunden habe, werde ich mich mit Deinem Vorschlag beschäftigen und versuchen es damit hinzubekommen.
Ich will einmal nach dem Erstellen des Formulars und vor dem Show etwas initialisieren.
Dies soll nicht bei jedem späteren Aufruf des Formulars erneut ausgeführt werden, da überflüssig.

Ich versuche Dein Beispiel für mich einmal nachzubauen, das wäre eine große Erleichterung.
Ich melde mich wieder, wenn ich es nicht hinbekomme.