TPaintBox auf änderung von FColor reagieren

[Thorben_Ko]

Hallo

ich habe eine Komponente abgeleitet von TPaintBox. Wenn man die Farbe änder muss drauf reagiert werden. Einfach die Methode SetColor zu überschreiben scheint nicht zu gehen. Ohne ovverride geht geht.

Delphi-Quellcode:

procedure TFarbFeld.SetColor(const Value: TColor);
begin
  color := Value;
  FieldsCreate;
  Paint;
end;

Ich kann das projekt auch erzeugen und die komponente auch installieren. Sobald ich aber die farbe nun ändern will schmiert mein Delphi ohne fehler meldung ab.

Weiss jemand rat?

Danke schon mal.

Gruss Thorben