FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
#2
|
||||
|
||||
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; |
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
Puedes adoptar el código que puso Marcos, y utilizar el mismo evento onMouseMove() en cualquier objeto pegado sobre el form.
Salu2. |
|
|
|