• Domingo 22 de Diciembre de 2024, 19:21

Autor Tema:  Imagen Con Onmouseover  (Leído 1462 veces)

Eman

  • Miembro activo
  • **
  • Mensajes: 42
    • Ver Perfil
Imagen Con Onmouseover
« en: Jueves 8 de Marzo de 2007, 03:48 »
0
hola amigos, lo que quiero hacer es que el menu que tengo use imagenes como botones entonces lo que se me ocurrio es que al pasar el mouse la imagen se mueva para darle un toque interactivo, use un simple componente de Image, pero al usar el evento onMouseMove, si logro moverlo pero cada ves que el mouse se mueve por el perimetro de la imagen la mueve y termina perdiendose de la forma, hay algun componente que me ayude a hacer lo que quiero??? o como puedo solucionar esto?, gracias de antemano

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Imagen Con Onmouseover
« Respuesta #1 en: Jueves 8 de Marzo de 2007, 15:56 »
0
Puedes usar el componente TImage pero usando una Bandera para saber si la imagen se ya se movio y el raton sigue encima.
Código: Text
  1.  
  2. TForm1   = class(TForm)
  3. ...
  4. public
  5.    MoveFlag: Boolean;
  6.  
  7.  
Código: Text
  1.  
  2. TForm1.ImageOnMouseMove...
  3. begin
  4.   If MoveFlag then
  5.   begin
  6.      MoverImage.....
  7.      MoveFlag := not MoveFlag; //o MoveFlag := False;
  8.    end;
  9. end;
  10.  
  11. TForm1.ImageOnMouseOut...
  12. begin
  13.      If not MoveFlag then
  14.   begin
  15.      MoverImage.....
  16.      MoveFlag := not MoveFlag; //o MoveFlag := True;
  17.    end;
  18. en;
  19.  
  20.