Die alte Leier: Zirkulaere Referenzen, aber warum nicht so: ...?

[Headbucket]

Hallo hzzm,

wenn ich dich richtig verstehe, dann versuchst du eine einfache Callback-Funktionalität zu realisieren, richtig? Du möchtest also in UnitX.pas deine MainForm aktualisieren.
Was an deinem Beispiel ungünstig ist, ist die globale Variable in der Unit MyMainProxy. Diese könnte von jeder Stelle aus dem Programm überschrieben werden und dann wunderst du dich vllt später, weshalb etwas nicht funktioniert.

Eine einfache andere Möglichkeit wäre z.B. folgende:
Du erstellst eine Klasse in UnitX.pas, welche das Feld "FMMSetGUIValue: Procedure of Object;" enthält (public)
In der MyMain.pas erzeugst du diese Klasse und weißt dem Feld "FMMSetGUIValue" die Funktion "SetGUIStatusOn" zu.
Nun kannst du in UnitX.pas an jeder beliebigen Stelle FMMSetGUIValue aufrufen. Vergiss aber nicht vorher mit Assigned zu prüfen, ob dem Feld auch wirklich eine Funktion zugewiesen wurde.

Grüße
Headbucket

[hzzm]

Wie kann ich denn auf Deine oder meine Art Parameter uebergeben?
Wenn ich ein Objekt als "Procedure of Object" initialisiere, funktioniert keine Syntax um einen Parameter mit anzugeben; MMSetGUIValue(Name: String);

Beim Zuweisen im FormCreate geht's auch nicht:

Code:

MMSetGUIValue := SetGUIStatusOn(Name: String);

"')' erwartet, aber ':' gefunden.

[Uwe Raabe]

Zitat von hzzm:

Wie kann ich denn auf Deine oder meine Art Parameter uebergeben?

Delphi-Quellcode:

type
  TMySetGUIValueProc = procedure(const Value: string) of object;
var
  MMSetGUIValue: TMySetGUIValueProc = nil;



procedure UnitX.PerformHCoreOperation;
begin
  MMSetGUIValue('Hallo MainForm!');
end;

Entspricht ungefähr diesem Vorgehen: How to access delphi function at DPR scope

[hzzm]

Danke Euch beiden.
Funktioniert wunderbar, auch in meinem (fraglichen) Original Schnipsel:

Delphi-Quellcode:

unit StatusProxy;

interface

var
  STFBenutzerEinstellen: Procedure(Name: String) of Object;
  STFGUILeeren: Procedure of Object;

implementation

end.