Ver Mensaje Individual
  #3  
Antiguo 17-11-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Hace no mucho tratamos un tema similar pero no recuerdo el hilo así que repetiré.

La opción de dca es del todo correcta pero si estos eventos los usas para otro tipo de cosas como validaciones por ejemplo, tiene el inconveniente de tener que recurrir a una serie de condicionales para determinar sobre qué control hacer la validación.

Código:
if Sender = Edit1 then
   ...
else if Sender = Edit2 then
  ..
else if Sender = Edit3 then
  ..

etc.
La opción quizá más correcta sería derivar un nuevo control que haga lo que deseas, por ejemplo:

Código:
type
  TCamaleonEdit = class(TEdit)
    procedure CMEnter(var Msg: TMessage); message CM_ENTER;
    procedure CMExit(var Msg: TMessage); message CM_EXIT;
  end;

implementation

procedure TCamaleonEdit.CMEnter(var Msg: TMessage);
begin
  Color := clAqua;
end;

procedure TCamaleonEdit.CMExit(var Msg: TMessage);
begin
  Color := clWindow;
end;
Claro que el inconveniente aquí es que tienes que sustituir los Edits que ya tengas por los nuevos además de registrar el nuevo componente.

Afortunadamente existe un truco para evitar esto:

Antes de la declaración del formulario declaras tu clase dándole el mismo nombre que el edit estandard:

Código:
type
  TEdit = class(StdCtrls.TEdit)
    procedure CMEnter(var Msg: TMessage); message CM_ENTER;
    procedure CMExit(var Msg: TMessage); message CM_EXIT;
  end;

  TForm1 = class(TForm)
    ...
  end;
con la misma implementación.

Al hacerlo así, Delphi instancia los objetos Edit que ya tenías a la nueva clase TEdit con el comportamiento requerido.

// Saludos
Responder Con Cita