Delphi-Quellcode:
TBasisfrm = class(TBasisForm)
...
procedure FormShow(Sender: TObject); override;
protected
farbe : TColor; // in Basisform farbe deklarieren
end;
Delphi-Quellcode:
procedure TBasisfrm2.FormShow(Sender: TObject);
begin
inherited;
Color := farbe;
end;
Mehr ist das nicht, oder doch ?
Ich gehe davon aus, dass während des Programmlaufs durch irgendwas die Farbe verändert wird. Ab dann gilt für neu zu öffnende Forms diese Farbe.