Cambio al hacer foco con el mouse

[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.

[sakuragi]

German gracias por responder

pero de hecho ya havia hecho eso ya lo havi aintentado como me dices erpo si correo todo pero no pasa nada, por eso volvi a preguntar

declare todo asi como lo describes, pero simple mente no pasa nada la pasa el cursor por arriva del DBGrid, mejor dicho no entra a los procedures

Código Delphi [-]
 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;

le puse showmessage haver si entraba y el resultado fue negativo

ya lo has probado? o alguien?

de hante mano gracias

[German]

Yo añadí el nuevo componente (tdbGrid2) a Delphi 7 antes de poner el código en el foro, y funcionaba perfectamente.

Creo que tu error está a la hora de añadir el componente, pues haces referencia a los procedimientos del .pas PARA CREAR EL OBJETO, y no a los EVENTOS DEL OBJETO YA CREADO.

El código escrito es UNICAMENTE PARA CREAR EL OBJETO EN LA PALETA DE DELPHI. Una vez creado, tendras una nueva pestaña llamada "Personal", y dentro de ella el componente dbGrid2. Es ESE COMPONENTE el que debes utilizar, y que te permitirá controlar cuando entra y sale el raton.