Fórum Movendo um TImage #148536

21/03/2003

0

Delphi

Como faço pra mover um TImage. Quando o usuário clica em cima do TImage arrasta pra outro lugar...

Como eu faço isso?

Valeu, Rodrigo Kenup


Rodrigo Kenup

Rodrigo Kenup

Responder

Posts

21/03/2003

Marcelo Saviski 

var
pressionado : boolean = false;
xx : integer = 0;
yy : integr = 0;



[color=blue:2c3d5f5ac9]no evento onmousedow do TImage faça[/color:2c3d5f5ac9]
pressionado := true;
xx := x;
yy := y;


[color=blue:2c3d5f5ac9]no evento onmouseup do TImage faça[/color:2c3d5f5ac9]

pressionado := false;


[color=blue:2c3d5f5ac9]no evento onmousemove do TImage faça[/color:2c3d5f5ac9]

Image.left := image.left + x - xx;
image.top := image.top + y - yy;



Responder

Gostei + 0

21/03/2003

Marcelo Saviski

Esqueci:

[color=blue:f2806c42d6]no evento onmousemove do TImage faça [/color:f2806c42d6]

if pressionado then
begin
Image.left := image.left + x - xx; 
image.top := image.top + y - yy;
end;



Responder

Gostei + 0

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

Aceitar