Foros Club Delphi - Evento OnMouseOver de HTML pero en Delphi??????

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)

- - Evento OnMouseOver de HTML pero en Delphi?????? (https://www.clubdelphi.com/foros/showthread.php?t=2498)

mguixot

25-07-2003 19:24:56

Evento OnMouseOver de HTML pero en Delphi??????

Hola compañeros, estoy intentando dar un 'toque web' a un formulario que acabo de implementar, y me gustaría saber si el TImage, tiene alguna propiedad para capturar el evento de pasar el raton por encima de la imagen, y otro para cuando dejamos de pasar el raton por encima de ella. Algo similar a lo que hacen los eventos OnMouseOver y OnMouseExit de html.

Saludos y gracias

marcoszorrilla

25-07-2003 19:45:08

Mira a ver si te vale con este truco.
Coloca un Timage y un Tedit.

Código:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

Edit1.Text:='Dentro';

end;



procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

edit1.Text:='Fuera';

end;

Un Saludo.

mguixot

25-07-2003 19:54:11

Gracias Marcos, por tu interes.
Finalmente he utilizado el componente RxSpeedButon, que traen las RXLib, y si que tiene el evento onMouseEnter, onMouseLeave, que me sirven perfectamente.
De todas formas, como mi formulario tiene de fondo un TImage, no se si me valdria tu ejemplo, aunque si sustituyo el Form1.onMouseMove(), por ImagenFondo.onMouseMove(), puede funcionar.
En fin, veré con cual me quedo al fina.

Muchas gracias otra vez.

Saludos

German C. C.

01-08-2003 03:59:38

Puedes adoptar el código que puso Marcos, y utilizar el mismo evento onMouseMove() en cualquier objeto pegado sobre el form.

Salu2.

La franja horaria es GMT +2. Ahora son las 09:34:10.