Aquí tienes un ejemplo para hacerlo
sin derivar el componente, programándolo en el form:
http://www.swissdelphicenter.ch/torr...ode.php?id=585
Y si quieres
derivar el componente para responder a los eventos de ENTER y EXIT y cambiar el color, pues aquí tienes el código (es de un mensaje anterior que contesté con la misma pregunta):
Código Delphi
[-]
unit EditColor;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls, GRaphics;
type
TEditColor = class(TEdit)
private
FColorEnter: TColor;
FColorExit: TColor;
procedure CMExit(var Message: TCMExit); message CM_EXIT;
procedure CMEnter(var Message: TCMEnter); message CM_ENTER;
protected
public
constructor Create(AOwner: TComponent); override;
published
property ColorEnter:TColor read FColorEnter write FColorEnter default clInfoBk;
property ColorExit:TColor read FColorExit write FColorExit default clWindow;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Neftali', [TEditColor]);
end;
procedure TEditColor.CMEnter(var Message: TCMEnter);
begin
inherited;
Self.Color := Self.FColorEnter;
end;
procedure TEditColor.CMExit(var Message: TCMExit);
begin
inherited;
Self.Color := Self.FColorExit;
end;
constructor TEditColor.Create(AOwner: TComponent);
begin
inherited;
Self.FColorEnter := clInfoBk;
Self.FColorExit := clWindow;
end;
end.