Muda a imagem quando o mouse estiver sobre a imagem

[Valdiney F. Lima 0]

Oi pessoal...

 

Eu estou fazendo um menu com várias imagens.

Por exemplo:

 

Quando eu passar o mouse uma imagem, eu gostaria que ela mudasse para outra imagem...

 

Tentei assim, mas não tive o sucesso pretendido

procedure TfrmDados.Image1MouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin  Image1.Picture.LoadFromFile('imagens/matriz_on.bmp');end;

Preciso que volte para a imagem inical quando o mouse nao estiver sobre ela... Como eu faria isso?

 

Abraço

[Hugo Slepicka 0]

humm... to sem o delphi aki, mas ñ tem nenhum evento de saida do mouse???ou então você pega a posição do mouse e compara se é a mesma posição da imagem ou diferente da área ocupada por ela, ai se for diferente você volta a imagem, senão você coloca a que você quer que apareça quando o mouse ta em cima da imagem...beleza?

[Valdiney F. Lima 0]

humm... to sem o delphi aki, mas ñ tem nenhum evento de saida do mouse???ou então você pega a posição do mouse e compara se é a mesma posição da imagem ou diferente da área ocupada por ela, ai se for diferente você volta a imagem, senão você coloca a que você quer que apareça quando o mouse ta em cima da imagem...beleza?

Essa lógica eu até havia pensado... mas na prática... é f***. Eu programo em PHP e estou começando em Delphi...

[marcio.theis 3]

Faça esse código mesmo, mas no evento OnMouseMove da imagem, pois quando o mouse se mover sobre a imagem vai ser alterada...

[Valdiney F. Lima 0]

Faça esse código mesmo, mas no evento OnMouseMove da imagem, pois quando o mouse se mover sobre a imagem vai ser alterada...

Deste jeito deu certo... mas quando o mouse tiver fora da imagem?

Como foltar a outra imagem?

[junior-jp 0]

amigo tenta usar o evento OnMouseOver....creio q eh o certo para o que voce esta querendo...

[Valdiney F. Lima 0]

 

Faça esse código mesmo, mas no evento OnMouseMove da imagem, pois quando o mouse se mover sobre a imagem vai ser alterada...

Deste jeito deu certo... mas quando o mouse tiver fora da imagem?

Como foltar a outra imagem?

 

Eu usava exatamente o evento OnMouseOver... mas quando eu passava o mouse nao mudava, tinha que clicar na imagem, e depois quando o mouse nao estava mais em cima da imagem, ela nao voltava para a imagem default...

 

Como eu faria isso?

[Valdiney F. Lima 0]

Olha eu falei uma bobagem muito grande.

 

Mas o objeto TImage, não tem o evento OnMouseOver, somentes os listados abaixo:

 

 

- OnMouseDown

- OnMouseMove

- OnMouseUp

 

Ta complicado o meu problema... Não consigo fazer essa paradinha de permurtar as imagens. Que droga.

[Vinicius Callegaro 0]

Seguinte...Chame o evento Picture.LoadFromFile no evento OnMouseMove do Form para chamar a imagem padrão (isto é, quando o mouse não estiver em cima da Imagem). Espero ter ajudado

[bdexterholland 0]

feito no onmousemove de um timage

 

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin  if (((X>0) and (X<Image1.Width)) and ((y>0) and  (y<Image1.Height))) then	Image1.Picture.LoadFromFile(<arquivo1>)  else	Image1.Picture.LoadFromFile(<arquivo2>);end;

[Valdiney F. Lima 0]

feito no onmousemove de um timage

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin  if (((X>0) and (X<Image1.Width)) and ((y>0) and  (y<Image1.Height))) then	Image1.Picture.LoadFromFile(<arquivo1>)  else	Image1.Picture.LoadFromFile(<arquivo2>);end;

Desta forma funcionou mais ou menos... Tem hora que permuta a imagem e hora nao..

[Vinicius Callegaro 0]

Coloque no OnMouseMove do TImage o Image1.Picture.LoadFromFile(<arquivo1>) e no OnMouseMove do seu Form em que está esse TImage o código Image1.Picture.LoadFromFile(<arquivo2>). O evento OnMouseMove do form não é chamado quando o mouse está em cima do TImage. Vai funcionar ;)

[Valdiney F. Lima 0]

Coloque no OnMouseMove do TImage o Image1.Picture.LoadFromFile(<arquivo1>) e no OnMouseMove do seu Form em que está esse TImage o código Image1.Picture.LoadFromFile(<arquivo2>). O evento OnMouseMove do form não é chamado quando o mouse está em cima do TImage. Vai funcionar ;)

Desta forma também não deu!Se você quizer eu mando o projeto pra você dar uma olha...

[Vinicius Callegaro 0]

Dá teu email que eu te mando um exemplo ou manda o seu projeto para callegaro@gmail.com

[Valdiney F. Lima 0]

Não consegui te mandar o e-mail no endereço que você me passou.

 

Eu disponibilizei o download do projeto no endereço abaixo:

 

Retirei o link devido ao problema solucionado.

 

Tente ai

[Vinicius Callegaro 0]

No OnMouseMove, do Panel7:

procedure TfrmDados.Panel7MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin	Image4.Picture.LoadFromFile('imagens/btn_InformacoesDeRegistro_off.bmp');end;

No OnMouseMove, do Image4:

procedure TfrmDados.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin  Image4.Picture.LoadFromFile('imagens/btn_InformacoesDeRegistro_on.bmp');end;

Só não sei o que fazer para parar de piscar a imagem quando mexer ou mouse (devido ao LoadFromFile)

[marcio.theis 3]

Poderia fazer uma validação antes, verificando se a imagem carregada é a diferente da que se deseja carregar, caso seja, então carrega, senão, não faz nada...

[Vinicius Callegaro 0]

Pois é, mas é isso que eu não sei hehe

[bdexterholland 0]

http://psygames.byethost10.com/forum/arquivos/mousemove.zip

 

Kara, esse é apenas um exemplo que funciona se você não mexer o mouse muito depressa pous quanto mais rápido, mas pixels são saltados...

 

e eu usei a dica que tinha te passado com uma pequena adaptação...

[Valdiney F. Lima 0]

No OnMouseMove, do Panel7:

procedure TfrmDados.Panel7MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin	Image4.Picture.LoadFromFile('imagens/btn_InformacoesDeRegistro_off.bmp');end;

No OnMouseMove, do Image4:

procedure TfrmDados.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin  Image4.Picture.LoadFromFile('imagens/btn_InformacoesDeRegistro_on.bmp');end;

Só não sei o que fazer para parar de piscar a imagem quando mexer ou mouse (devido ao LoadFromFile)

Sem problema... agora vou fazer uma função pra organizar mais as imagens que colocarei no projeto. Valeu pela a atenção meu velho.Abração!