Events zwischen 2 aktiven Forms

[tdeck]

Hallo :-)

Ich komme bei einen eigentlich einfachen Problem nicht mehr weiter und verrenne mich da etwas. Ich hatte sowas vor einigen Jahren schon mal in einen kleinen Projekt gemacht, finde es aber nicht mehr.

Ich habe eine MainForm und eine SubForm, ich habe für den Anwender ein Bild mit den TierZonen für die Zurodnung erstellt.
Wenn ich die die "Tier 7" Zone im Hauptfenster anklicke färbt sich der Kreis um die "Tier 7" auf dem Bild im SubFenster ebenfalls grün.
Aber es soll auch möglich sein, das der Anwender in den Kreis klickt und im Hauptfenster die entsprechend umgeschaltet wird.
Und genau da komme ich nicht weiter, scheinbar bekomme ich das Event vom SubFenster zum MainForm nicht zum laufen. Ich denke ich habe da irgendwo einen Denkfehler.

Im MainFormUnit:

Code:

  private
    { Private-Deklarationen }
    strPfadImport : string;
    strPfadExport : string;
    bLizenzOK : boolean;
    OriginalItems: TStringList; // temp. Liste für ursprüngliche Elemente
    XMLDocument: IXMLDocument;
    bool_xml_loaded: Boolean;
    procedure HandleDataChanged(Sender: TObject);
  public
    { Public-Deklarationen }
    procedure SendDataToDeerIsleForm(tierValues: array of Boolean);
    procedure UpdateDataFromDeerIsleForm;
  end;
...
procedure TMainForm.FormCreate(Sender: TObject);
begin
   // Initialize DeerIsleForm and set up the event
  if not Assigned(DeerIsleForm) then
  begin
    DeerIsleForm := TDeerIsleForm.Create(Self);
    DeerIsleForm.OnDataChanged := HandleDataChanged;
  end;
end;


procedure TMainForm.HandleDataChanged(Sender: TObject);
begin
  // Handle the data changed event
  UpdateDataFromDeerIsleForm;
end;

procedure TMainForm.UpdateDataFromDeerIsleForm;
var
  tierValues: TArray<Boolean>;
begin
  if Assigned(DeerIsleForm) then
  begin
    tierValues := DeerIsleForm.GetData;
    // Process the received data as needed, for example:
     ShowMessage('Tier 7: ' + BoolToStr(tierValues[6], True)); // Diese Meldung kommt leider nicht
  end;
end;

Im SubForm:

Code:

...
  private
    { Private declarations }
    FOnDataChanged: TNotifyEvent;
    procedure NotifyDataChanged;
  public
    { Public declarations }
    bool_tier1 : boolean;
    bool_tier2 : boolean;
    bool_tier3 : boolean;
    bool_tier4 : boolean;
    bool_tier5 : boolean;
    bool_tier6 : boolean;
    bool_tier7 : boolean;
    bool_tier8 : boolean;
    bool_tier9 : boolean;
    bool_tier10 : boolean;
    bool_tier11 : boolean;
    bool_tier12 : boolean;
    bool_tier13 : boolean;
    bool_tier14 : boolean;
    bool_tier15 : boolean;
    bool_tier16 : boolean;
    bool_tier17 : boolean;
    bool_tier18 : boolean;

    property OnDataChanged: TNotifyEvent read FOnDataChanged write FOnDataChanged;
    // Method to receive data from MainForm
    procedure ReceiveData(tierValues: array of Boolean);
    // Method to send data back to MainForm
    function GetData: TArray<Boolean>;
  end;


procedure TDeerIsleForm.NotifyDataChanged;
begin
  if Assigned(FOnDataChanged) then
    FOnDataChanged(Self);
end;

// Im Kreis Maus gedrückt
//
procedure TDeerIsleForm.Shape7MouseActivate(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y, HitTest: Integer;
  var MouseActivate: TMouseActivate);
begin
  Toggle(bool_tier7);
    NotifyDataChanged;

      UpdateShape;
end;

Ich denke ich habe für den TNotifyEvent vom SubForm zum MainForm irgendwo einen Denkfehler, kann mir Jemand auf die Sprünge helfen :-)

Thorsten

Ich benutze dafür Delphi 11.3

[Uwe Raabe]

Kannst du prüfen, ob der Event im FormCreate wirklich zugewiesen wird?

Ich würde sowieso nur das Erzeugen des Forms in das IF packen. Die Zuweisung des Events soll doch wohl in jedem Fall geschehen, oder?

Mal abgesehen von der grundsätzlichen In-Frage-Stellung der globalen Variable.

[tdeck]

Zitat:

Zitat von Uwe Raabe (Beitrag 1537915)

Kannst du prüfen, ob der Event im FormCreate wirklich zugewiesen wird?

Ich würde sowieso nur das Erzeugen des Forms in das IF packen. Die Zuweisung des Events soll doch wohl in jedem Fall geschehen, oder?

Mal abgesehen von der grundsätzlichen In-Frage-Stellung der globalen Variable.

Hallo Uwe,

manchmal sieht man den Wald vor lauter Bäumen nicht mehr.

Es hat nur eine Deklaration im MainForm gefehlt

Code:

...
private
    DeerIsleForm: TDeerIsleForm;
...

Das war alles, jetzt läuft es.
Was meintest Du mit "grundsätzlichen In-Frage-Stellung der globalen Variable"?

Thorsten

[Uwe Raabe]

Zitat:

Zitat von tdeck (Beitrag 1537923)

Was meintest Du mit "grundsätzlichen In-Frage-Stellung der globalen Variable"?

Na ja, da ich keine Variable in der Klasse finden konnte, der Code aber offenbar compilierte, musste es eine globale Variable DeerIsleForm geben.