qd o mouse passar sobre uma img...
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?
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
Curtidas 0
Respostas
Anonymous
06/02/2003
Colega; você deve especificar seus comandos no evento OnMouseMove do objeto e não do form como você tem feito.
GOSTEI 0
Skaarj
06/02/2003
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;
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;
GOSTEI 0
Anonymous
06/02/2003
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!
não dá pra ver assim o form sem a img, mais a img pisca direto!
GOSTEI 0
Anonymous
06/02/2003
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. :!:
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. :!:
GOSTEI 0