Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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


Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-06-2003
vichovi vichovi is offline
Miembro
NULL
 
Registrado: may 2003
Ubicación: Huelva (España)
Posts: 59
Poder: 17
vichovi Va por buen camino
Capturar eventos de componentes

Hola a todos:

A ver se me podeis echar una mano:

Quisiera haer un componente (descendiente del TEdit) al cual se le pudiera asignar un color cuando recibe el foco y otro cuando lo pierde.

¿Como puedo hacer para capturar el evento OnExit y OnEnter?

(Creo haber leido en el foro un post similar pero llevo toda la mañana buscando y no doy con el . Si ya ha sido respondido podriais decirme donde??)

Un saludo. Y gracias por todo.
__________________
Vivir a la deriva,
sentir,
que no se que hago aki...

(Extremo)
Responder Con Cita
  #2  
Antiguo 13-06-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.239
Poder: 10
roman Tiene un aura espectacularroman Tiene un aura espectacular
Puedes capturar los mensajes CM_EXIT y CM_ENTER:

Código:
type
  TForm1 = class(TForm)
    procedure CMEnter(var Msg: TMessage); message CM_ENTER;
    procedure CMLeave(var Msg: TMessage); message CM_LEAVE;
  end;

implementation

procedure TForm1.CMEnter(var Msg: TMessage);
begin
  inherited;

  { tu código }

end;

procedure TForm1.CMLeave(var Msg: TMessage);
begin
  inherited;

  { tu código }

end;

end.
// Saludos
Responder Con Cita
  #3  
Antiguo 13-06-2003
vichovi vichovi is offline
Miembro
NULL
 
Registrado: may 2003
Ubicación: Huelva (España)
Posts: 59
Poder: 17
vichovi Va por buen camino
Thumbs up

De lujo Roman, muchisimas gracias.
__________________
Vivir a la deriva,
sentir,
que no se que hago aki...

(Extremo)
Responder Con Cita
  #4  
Antiguo 13-06-2003
Avatar de marcsc
marcsc marcsc is offline
Miembro
NULL
 
Registrado: may 2003
Ubicación: Girona
Posts: 577
Poder: 17
marcsc Va por buen camino
Hola,

aunque no lo he probado, también podrías intentarlo haciendo un override de los métodos dinámicos protegidos DoEnter y DoExit, definidos en la clase TWinControl o TWidgetControl (según sea VCL o CLX). La implementación te queda casi igual que la que te proponen:

Código:
type
  TForm1 = class(TForm)
    procedure DoEnter; override;
    procedure DoExit; override;
  end;

implementation

procedure TForm1.DoEnter;
begin
  inherited;

  { tu código }

end;

procedure TForm1.DoExit;
begin
  inherited;

  { tu código }

end;

end.
Aunqué quizás sea un poco más fácil y además sería compatible con componentes CLX, cosa que no ocurriría con la otra implementación que te proponen.

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 23:21:01.


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