Movendo um TImage

Delphi

21/03/2003

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

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

21/03/2003

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;



GOSTEI 0
Marcelo Saviski

Marcelo Saviski

21/03/2003

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;



GOSTEI 0
POSTAR