Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-11-2003
Carlos Arevalo Carlos Arevalo is offline
Miembro
 
Registrado: may 2003
Ubicación: Caracas, Venezuela
Posts: 111
Poder: 21
Carlos Arevalo Va por buen camino
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
Responder Con Cita
  #2  
Antiguo 17-11-2003
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
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!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #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
Poder: 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
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 15:54:02.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi