überschreiben einer Funktion einer Unterklasse der Basiskla

icolo · Beiträge: 26

Hallo allerseits.

Ich möchte in meiner von TEdit abgeleiteten Klasse eine Prozedur (genauergesagt SetColor), die wiederum in TFont (einer Unterklasse der Klasse TEdit) deklariert ist, überschreiben.

markieren

Quelltext

1:	procedure SetColor(value: TColor); override;

Der Compiler motzt, diese Prozedur sei in der Basis-Klasse nicht gefunden worden, was ich ja auch verstehen kann...

Kann mir jemand auf die Sprünge helfen, wie man das machen müsste?

greets
icolo

AndyB · Beiträge: 1173 Erhaltene Danke: 14 RAD Studio XE2

Da das Feld FFont bereits von TControl eingebunden wird, ist dies nur über Tricks möglich, die nicht zu empfehlen sind.

Du kannst aber das Ereignis CM_FONTCHANGED, das von der Font-Instanz der TControl bzw. TEdit Klasse ausgelöst wird, abfangen.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

TMyEdit = class(TEdit)
protected
  procedure CMFontChanged(var Msg: TMessage); message CM_FONTCHANGED;
end;

procedure TMyEdit.CMFontChanged(var Msg: TMessage);
begin
  inherited;
  if Font.Color = clRed then ShowMessage('Rot wurde gewählt');
end;

_________________
Ist Zeit wirklich Geld?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme