[Class] OnEnter und OnExit überschreiben

[gsh]

Hi DPler

Ich hab in meinem Projekt überrall bei TEdits OnEnter und OnExit proceduren verstreut die alle eigentlich das gleiche machen:

Delphi-Quellcode:

procedure TfrmOptionen.DataEditEnter(Sender: TObject);
begin
  (Sender as TEdit).Color := cColors_EditSelect;
end;

procedure TfrmOptionen.DataEditExit(Sender: TObject);
begin
  (Sender as TEdit).Color := cColors_EditNormal;
  SendMessage((Sender as TEdit).Handle, WM_MOUSEMOVE, 0, 0);
end;

So jetzt hab ich mir gedacht das es vielleicht einfach ist wenn ich eine klasse TDataEdit = class(TEdit) schreibe. Nur hab ich keine Ahnung wie ich jetzt das OnEnter und OnExit Event überschreiben kann. Soviel hab ich:

Delphi-Quellcode:

type
  TDataEdit = class(TEdit)
  private
    procedure DataEditEnter(Sender: TObject);
    procedure DataEditExit(Sender: TObject);
  end;

So nur wie sag ich im jetzt das er das auch verwenden soll?