qd o mouse passar sobre uma img...

06/02/2003

0

como q eu faço para que quando o mouse passar por cima de uma img, essa imagem mude para outra, e quando o mouse sair de cima dela, ela volte ao normal?

eu fiz o segunite:

procedure TForm1.img001MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img001.Picture.bitmap.handle := LoadBitmap(Lib,´BITMAP_11´);
end;

o problema é como voltar para a img normal, eu fiz o seguinte:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img001.Picture.bitmap.handle := LoadBitmap(Lib,´BITMAP_1´);
end;

o problema é que sempre e mexe o moseu no form a img pisca, ou seja, toda hor afica mudando pro bitmap_1(tá numa dll)

mais sempr eq o mosue passar por cima da img ela muda, e que sai volta, então, euq uero saber, assim como tem a função q ve se o mouse passar por cima, o OnMouseMover, qual q é q verifica se não está em cima ou qd o mouse sair de cima da figura?

Já tentei usar onDragOver, OnDragDrop, OnMouseUp, OnMouseDown, nenhuma dá!

quem pode me explicar?


Anonymous

Anonymous

Responder

Posts

06/02/2003

Anonymous

Colega; você deve especificar seus comandos no evento OnMouseMove do objeto e não do form como você tem feito.


Responder

06/02/2003

Skaarj

Coloca os eventos no OnMouseMove do Form e do Image, olha:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image1.Picture.LoadFromFile(´C:\WINDOWS\Desktop\Mecatron\figs\logo.bmp´);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image1.Picture.LoadFromFile(´E:\skaarj\Hd\Meus documentos\Fotos\cris.bmp´);;
end;


Responder

06/02/2003

Anonymous

então, eu já cheguei a fazer isso como disse(eu disse ehehe?) só q toda roa qmexe o mos e a img fica piscando, fica troacndo toda hora q mexe o mouse n form!

não dá pra ver assim o form sem a img, mais a img pisca direto!


Responder

07/02/2003

Anonymous

Eu fiz assim:
Coloquei 3 images. A que fica com o visible true (image1).E as outras com o visible false.
no Mouse move do image 1 faça:

if image1.picture<>image2.picture then
begin
image1.picture:=image2.picture;
end;

No mouse Move do form faça:

if image1.picture<>image3.picture then
begin
image1.picture:=image3.picture;
end;

A image 3 tem como picture, a mesma imagem da Image1.

Clayton , 13 anos. :!:


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar