Foros Club Delphi - Procedimiento global

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Procedimiento global (https://www.clubdelphi.com/foros/showthread.php?t=5317)

Procedimiento global

tengo varios forms con varios controles tedit y quiero que cuando el cursor se pose sobre un tedit cambie el color de fondo y cuando pierda el foco retorne a su color original.

mi pregunta es:

se puede crear una rutina que controle esto y que no se coloque en el evento onenter y en onexit de cada control.

gracias.

Lo que puedes hacer, es apuntar todos los OnEnter y OnExit a un solo evento (En este caso, uno por cada evento). En tiempo de diseño, seleccionas todos los componentes, vas al evento, haces doble click, y creará un solo evento al que apuntarán todos los controles seleccionados. Luego puedes utilizar el parámetro Sender para saber cuál es el control que ha llamado al evento.

Código:

procedure EditsOnEnter(Sender: TObject)

begin

  if Sender is TEdit Then

     TEdit(Sender).Color := clRed;

end;



procedure EditsOnExit(Sender: TObject)

begin

  if Sender is TEdit Then

     TEdit(Sender).Color := clWindowText;

end;

Saludos!

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