[Class] OnEnter und OnExit überschreiben

[dataspider]

Hi,

Delphi-Quellcode:

...
TMyEdit = class(TEdit)
protected
  procedure DoEnter; override;
  procedure DoExit; override;
end;
...

implementation

procedure TMyEdit.DoEnter;
begin
  inherited;
  // dein Code
end;

procedure TMyEdit.DoExit;
begin
  inherited;
  // dein Code
end;

Nur am Rande, für die Farbe setzen gibt es bessere Möglichkeiten...

Cu, Frank