移动image var Downs:boolean; Points:tpoint;image1.onmousedown: downs:=true; points.x:=x; points.y:=y;image1.onmousemove: if downs then begin image1.left:=image1.left-points.x+x; image1.top:=image1.top-points.y+y; end;image1.onmouseup downs:=false;比较容易看懂的.
var Downs:boolean;
Points:tpoint;image1.onmousedown:
downs:=true;
points.x:=x;
points.y:=y;image1.onmousemove:
if downs then
begin
image1.left:=image1.left-points.x+x;
image1.top:=image1.top-points.y+y;
end;image1.onmouseup
downs:=false;比较容易看懂的.