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;