qd o mouse passar sobre uma img...
06/02/2003
0
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
Posts
06/02/2003
Anonymous
06/02/2003
Skaarj
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;
06/02/2003
Anonymous
não dá pra ver assim o form sem a img, mais a img pisca direto!
07/02/2003
Anonymous
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. :!:
Clique aqui para fazer login e interagir na Comunidade :)