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

[berens]

Tjo, ansich müsstest du wohl einen Stack-Überlauf bekommen. Wenn du Color := Value ausführst, wird ja auch wieder Setcolor aufgerufen!

Versuche mal

Delphi-Quellcode:

  inherited Color := Value;

[Deep-Sea]

Zitat:

Zitat von Thorben_Ko

Delphi-Quellcode:

procedure TFarbFeld.SetColor(const Value: TColor);
begin
  color := Value;
  FieldsCreate;
  Invalidate; // << Bitte so ... wenn schon ...
end;

[Thorben_Ko]

Zitat:

Zitat von berens

Tjo, ansich müsstest du wohl einen Stack-Überlauf bekommen. Wenn du Color := Value ausführst, wird ja auch wieder Setcolor aufgerufen!

Versuche mal

Delphi-Quellcode:

  inherited Color := Value;

Super danke hat geklappt.