Ver Mensaje Individual
  #2  
Antiguo 12-02-2009
Avatar de Lord Delfos
Lord Delfos Lord Delfos is offline
Miembro
 
Registrado: ene 2008
Ubicación: Tandil, Argentina
Posts: 558
Reputación: 17
Lord Delfos Va por buen camino
Por objeto supongo que dirás un control, como un botón digamos.

El evento OnMouseMove se dispara cuando el mouse para por arriba de un control.

Si intuyo bien, lo que te pasa es que no podés saber cuándo el mouse se te fue de arriba del control... El truco que yo he hecho varias veces (y que es bastante simple, pero molesto) es crear una nueva clase y agregarle estos dos métodos.

Código Delphi [-]
uses ... Messages...;

type TMiBoton=class(TButton)
  procedure CMMouseEnter(var Msg: TMessage); message CM_MouseEnter;
  procedure CMMouseLeave(var Msg: TMessage); message CM_MouseLeave;
end;

procedure TMiBoton.CMMouseEnter(var Msg: TMessage); message CM_MouseEnter;
begin
end;

procedure TMiBoton.CMMouseLeave(var Msg: TMessage); message CM_MouseLeave;
begin
end;

Y después crear el botón "a mano" y no ponerlo con el editor visual... Lamentablemente, si hay otra manera, no la conozco.

Espero te sirva de algo. Saludongos.
Responder Con Cita