Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Simular OnMouseOver (https://www.clubdelphi.com/foros/showthread.php?t=13783)

luigidean 31-08-2004 02:38:26

Simular OnMouseOver
 
Buenas, no se si esta pregunta ira bien ubicada en esta seccion de OOP, pero bueno allá va:

Queria preguntar si es posible simular de alguna manera el evento OnMouseOver como tienen por ejemplo los botones de Visual Basic.

Un saludo y gracias de antemano.

roman 31-08-2004 03:21:08

El equivalente en Delphi es OnMouseMove.

// Saludos

luigidean 02-09-2004 00:47:19

Solucionado
 
Gracias por la respuesta pero ya encontré la solucion. Yo lo que queria hacer es que al pasar por encima de un boton, este cambiara de color. El problema que habia con OnMouseMove es que si pasas rapidamente el raton por encima del boton el cambio de color no se produce.
Buscando por el foro encontre la respuesta, tenia que utilizar manejadores de mensajes:

procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

procedure TMyPannel.CMMouseEnter(var Message: TMessage);
begin
Color := clRed;
end;
procedure TMyPannel.CMMouseLeave(var Message: TMessage);
begin
Color := clBtnFace;
end;

De todas formas gracias por responder y la proxima vez buscare en el foro antes de preguntar ;)

Venga saludos.

PD: ¿Donde podria encontrar informacion detallada y con ejemplos sobre los manejadores de mensajes?

roman 02-09-2004 00:55:27

Cita:

Empezado por luigidean
la proxima vez buscare en el foro antes de preguntar

Eso y también preguntar claramente lo que quieres hacer desde el principio. De haber formulado tu pregunta tal como la describes ahora

Cita:

Empezado por luigidean
Yo lo que queria hacer es que al pasar por encima de un boton, este cambiara de color

te habría respondido lo que posteriormente encontraste.

;)

// Saludos


La franja horaria es GMT +2. Ahora son las 02:04:58.

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