LogFile global ansprechbar machen

[d3g]

Wie wär's mit sowas?

Delphi-Quellcode:

type
  TMainForm = class(TImage)
  public
    procedure AddLogFileEntry(msg: String);
    { ... }
end;

procedure TMainForm.AddLogFileEntry(msg: String);
begin
  MyListBox.Items.Add(DateTimeToString(Now) + ' --- ' + msg);
end;


// Das hier in der Projektdatei (*.dpr):

f1 := TFirstChildForm.Create(MainForm);
f1.Parent := MainForm;
f2 := TSecondChildForm.Create(MainForm);
f2.Parent := MainForm;
// usw.


// Deine Kindformulate können die Logfileentries dann so machen:
uses
  MainForm;  // MUSS sein; anders kann man gar nicht auf's Hauptformlar zugreifen

procedure TFirstChildForm.AnyMethodYouCouldThinkOf();
begin
  (Parent as TMainForm).AddLogFileEntry;
end;

Ist so ziemlich sauber implementiert. Wie gesagt, ohne Unit-Einbinden geht's nicht, weil du sonst nur auf Methoden von TWinControl zugreifen könntest, was nicht reichen sollte.

Du kannst das Einbinden natürlich auch umgehen, indem du den Umweg über Windows machst und Messages versendest. Das ist aber kein so besonders sauberes OOP, weil du keine Typensicherheit hast und außerdem nicht besonders performant, weil du die Message-Queue von Windows zusätzlich beanspruchen musst (oder besser gesagt: öfter beanspruchen musst; du merkst nur nicht, dass du es ständig tust und jetzt müsstest du sogar explizit). Außerdem verlörest du die Plattformunabhängigkeit.

Alles andere (was ich mir vostellen kann) wäre nur ekelig und unpraktisch, weil von Echtzeit überhaupt nicht mehr die Rede sein kann (z.B. beim regelmäßigen Pollen einer Property der Kindformulare).