SoloCodigo

Programación General => Delphi => Mensaje iniciado por: Eman en Jueves 8 de Marzo de 2007, 03:48

Título: Imagen Con Onmouseover
Publicado por: Eman en Jueves 8 de Marzo de 2007, 03:48

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

Título: Re: Imagen Con Onmouseover
Publicado por: Enko en Jueves 8 de Marzo de 2007, 15:56

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.