TEdit ableiten und OnEnter überschreiben

[migi]

Hallo,

ich möchte eine EditKomponente, die ihre Farbe dann ändert wenn der Cursor in ihr aktiv ist. Dazu hätte ich gern TEdit abgeleitet, eine Eigenschaft hinzugefügt, die im Objektinspektor veränderbar ist und vom Typ TColor ist (funktioniert wunderbar!) und schließlich die beiden Ereignisse OnEnter und OnExit überschrieben (override ... dann inherited) und darin einfach die Eigenschaf Color von TEdit geändert. So weit die Theorie. Nun sind aber OnEnter und OnExit keine Proceduren bzw. Funktionen sondern vom Typ TNotifyEvent.
Wie kann ich mein Vorhaben trotzdem realiseren? Bin ich total auf dem Holzweg? Bitte helft mir...


Grüße

Michael

[scp]

Überschreib am besten folgende:

Delphi-Quellcode:

    procedure CMEnter(var Message: TCMEnter); message CM_ENTER;
    procedure CMExit(var Message: TCMExit); message CM_EXIT;

Ansonsten wie dz gesagt hast: override ... dann inherited.

[migi]

Hallo scp,

vielen Dank für deine Antwort. Wenn ich dann noch folgende Proceduren hinzufüge, funktioniert es wie gewollt.

Delphi-Quellcode:

constructor TGRIPSEdit.Create(AOwner: TComponent);
begin
  inherited;
  inherited OnExit := NewOnExit;
  inherited OnEnter:= NewOnEnter;

end;

procedure TGRIPSEdit.NewOnEnter(Sender: TObject);
begin
   color := clHighlightColor;
   if Assigned(fOnEnter) then fOnEnter(Sender);
end;

procedure TGRIPSEdit.NewOnExit(Sender: TObject);
begin
   color := clNormalColor;
   if Assigned(fOnExit) then fOnExit(Sender);
end;

..Natürlich mit entsprechender Deklaration.

Grüße

Michael