TEdit ableiten und OnEnter überschreiben

[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