Form 2 aus Form 1 öffnen und nach schließen von Form 2 in Form 1 witermachen

[Walter Landwehr]

Form 1
TPatientenblattFrm.Create(Application.MainForm, Patient1Qry.FieldByName('PatientNr').AsInteger, TiereQry.FieldByName('TiereNr').AsInteger);

Form 2

Delphi-Quellcode:

procedure TPatientenblattFrm.FormDestroy(Sender: TObject);
begin
  TierhalterFrm.BtnPatblattFarbe;
end;

in form 1

Delphi-Quellcode:

procedure TTierhalterFrm.BtnPatblattFarbe;
begin
  if (ToolsOperation.Farbe = True) then
    btnPatblatt.Font.Color := clred
  else
    btnPatblatt.Font.Color := clWindowText;
  btnPatblatt.Refresh;
end;

[Uwe Raabe]

Zitat von Walter Landwehr:

wie in #1 beschrieben.

Vielleicht übersehe ich ja was, aber ich kann nirgendwo den Code entdecken, der dieser Beschreibung entspricht:

Zitat:

ich rufe in Form 2 bei OnDestroy eine Procedure in Form 1 auf.

[Walter Landwehr]

siehe #15.

[Uwe Raabe]

Und TierhalterFrm ist auch wirklich die Instanz von Form1, in der der gezeigte Aufruf von Form2 ausgeführt wurde, und die Instanz ist auch noch nicht anderweitig freigegeben worden?