Cambio al hacer foco con el mouse

[c748a]

Gracias a todos por las contestaciones.
En algunas ocasiones la solución de Marcos Zorrilla me genera un problemita. Este es que si se pasa rápidamente del Tlabel a otro componente pareciera que no se genera el evento onmousemove del form. Esto no sucede muy a menudo pero quería destacarlo. Con respecto a los eventos mencionados no los tengo porque estoy utilizando una version bastante viejita: Delphi 3
Un saludo

[sakuragi]

hola que tal

yo tengo el mismo problema

pero lo quiero haser en un DBgrid y en un cxgrid

ya que estos componetes no tienes los mismos eventos que el lable

me gustaria saber como haserle para que al pasar el mouse por ensima de una fila este me la ponga de color diferente

ya eh buscado en el foro pero no e contrado nada de con dbgrid o cxgrid que al pasar el mouse por ensima ponga de otro color ya l quitarlo se regrese a su color anteriro pero por filas

de hante mano gracias

saludos

[German]

Empezado por c748a

Gracias a todos por las contestaciones.
En algunas ocasiones la solución de Marcos Zorrilla me genera un problemita. Este es que si se pasa rápidamente del Tlabel a otro componente pareciera que no se genera el evento onmousemove del form. Esto no sucede muy a menudo pero quería destacarlo. Con respecto a los eventos mencionados no los tengo porque estoy utilizando una version bastante viejita: Delphi 3
Un saludo

Desconozco si las rxLib funcionan en Delphi 3, pero estas incluyen una trxLabel, descendiente de una tLabel, con dos eventos que son los que necesitas:

onMouseEnter -> Al entrar el raton
onMouseLeave -> Al salir el raton

Salu2.

[madriles]

por si puede servir, en trucomania teneis el truco 395 para crear evento OnMouseEnter OnMouseLeave de un componente, con un ejemplo en un TImage
espero que os sirva
un saludo

[sakuragi]

este es el ejemplo que dice "madriles"

Código Delphi [-]
 unit Image2;

 interface

 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   ExtCtrls;

 type
   TEntrarEvent=procedure(Sender:TObject) of object;
   TSalirEvent =procedure(Sender:TObject) of object;
   TImage2 = class(TImage)
   private
     { Private declarations }
     FOnEnter:TEntrarEvent;
     FOnExit :TSalirEvent;
     procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
     procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
   protected
     { Protected declarations }
   public
     { Public declarations }
   published
     { Published declarations }
     property OnMouseEnter: TEntrarEvent read FOnEnter write FOnEnter;
     property OnMouseLeave: TSalirEvent read FOnExit write FOnExit;

   end;

 procedure Register;

 implementation

 procedure TImage2.CMMouseEnter(var msg:TMessage);
 begin
     inherited;
     {Cuando el raton entra...}
     If Assigned(FOnEnter) then FOnEnter(Self);
 end;

 procedure TImage2.CMMouseLeave(var msg: TMessage);
 begin
     inherited;
     {Cuando el raton sale}
     If Assigned(FOnExit) then FOnExit(self);
 end;

 procedure Register;
 begin
   RegisterComponents('TMania', [TImage2]);
 end;

 end.

saludos

[sakuragi]

bueno el codigo que puse anterior mente

no me sirvio para un DBGrid ni apra un cxGrid

ni si quiera entro al onMouseEnter ni leave


ni ha los procedures entro



saludos

[German]

Empezado por sakuragi

bueno el codigo que puse anterior mente

no me sirvio para un DBGrid ni apra un cxGrid

ni si quiera entro al onMouseEnter ni leave


ni ha los procedures entro



saludos

El código anterior es para crear un componente tLabel con los eventos onMouseEnter y onMouseLeave. Si quieres, tambien puedes hacer lo mismo con un componente dbGrid, creando uno nuevo que incluya esos eventos:

Código Delphi [-]
unit dbGrid2;
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DbGrids;
 
type 
  TEntrarEvent=procedure(Sender:TObject) of object;
  TSalirEvent =procedure(Sender:TObject) of object;
  tDbGrid2 = class(tDbGrid)
  private
    { Private declarations }
    FOnEnter:TEntrarEvent;
    FOnExit :TSalirEvent;
    procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property OnMouseEnter: TEntrarEvent read FOnEnter write FOnEnter;
    property OnMouseLeave: TSalirEvent read FOnExit write FOnExit;
 
  end; 
 
procedure Register;
 
implementation 
 
procedure tDbGrid2.CMMouseEnter(var msg:TMessage);
begin 
    inherited;
    {Cuando el raton entra...}
    if Assigned(FOnEnter) then FOnEnter(Self);
end; 
 
procedure tDbGrid2.CMMouseLeave(var msg: TMessage);
begin 
    inherited;
    {Cuando el raton sale}
    if Assigned(FOnExit) then FOnExit(self);
end; 
 
procedure Register;
begin 
  RegisterComponents('Personal', [tDbGrid2]);
end; 
 
end.

Doy por hecho que sabes crear un nuevo componente con este código. Si no es así, ya diras.

Salu2.