FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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.
__________________
Carlos Arevalo MSN Messenger: carlos@arevalo.com.ve |
#2
|
||||
|
||||
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;
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
||||
|
||||
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. 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; 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; Al hacerlo así, Delphi instancia los objetos Edit que ya tenías a la nueva clase TEdit con el comportamiento requerido. // Saludos |
|
|
|