如何移动Image窗口的图片内容,使能看到未显示的部分?(50分)

[blue]如何移动Image窗口的图片内容,使能看到未显示的部分?[/blue]

用Windows.MoveEx(Image1.Canvas.Handle, 50, 30, NIL)
为什么没有用?

点击展开...

图像拖动 查资料

//转贴
Inboo (2000-03-18 10:59:00)
你真走运，伙计！刚好我前几天为此琢磨，彻底搞明白了。用以下方法，你可以针对
窗体上的任何控件拖动，就可以拖动Form。而且，你可以定义拖动的条件，例如是按下Ctrl还是按下Shift键才能开始拖动，或者选中一个CheckBox以后才能拖动。
说起来这么麻烦，其实关键的地方只有一个，请看：
下面的例子假设要拖动Image1，并且只有按下Ctrl键才会拖动。

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
SC_DRAGMOVE=$f012;//You Must add this line.
begin
if (ssCtrl in shift) then//Press Ctrl key
begin//drag move
ReleaseCapture;
TWinControl(Application.MainForm).Perform(WM_SYSCOMMAND,SC_DRAGMOVE,0);
end;//if ssCtrl in shift
end;

楼上的你好像误解了他的意思，我觉得应该是图像的漫游吧！

觉得似乎可以这样。。
copyrect..........

huazai说的没错,我的确问的是图像的漫游.
在论坛中搜索了一下也找不到答案,还请诸位多多帮忙

你的邮箱？我发给你！或者与我联系huazai@zju.edu.cn

我最近做一个项目正需要，请知道的各位高手能否能为发一个EMAIL，WULINE123@163.COM

图像的漫游：
只要将Image放入Panel里面，然后响应OnMouseMove的事件，
对每次移动计算偏移坐标值，将Image的Left,Top加上偏移坐标即可实现
漫游！我有源码但是是C++ Builder的！

基于Delphi的图像漫游



向晖

在开发多媒体应用中,经常会遇到需要在有限区域内显示大图像的情况,有不少文章

对此提出过解决方法,如通过调用Windows的API函数,直接读写内存等。这些方法有某些

优点,但实现起来较为复杂,且易出错。笔者在实践中通过仔细摸索,利用Delphi的强大的

面向对象可视化开发环境开发了一种交互式图像漫游方法。

Delphi中,鼠标的消息响应是通过元件的OnMouseDown、OnMouseUp和OnMouseMove事

件实现的,通过对此三个事件编程,可控制图像在有限区域内移动。考虑到所移动的图像

的边界应总在该区域外,因此图像的左上角坐标应小于该区域对应坐标,图像右下角坐标

应大于该区域对应坐标(除非图像大小比该区域小)。



具体方法是:

1、新建一工程Project1,在Form1中依次放入Panel1、Panel2和Image1元件,注意Pa

nel2和Image1分别在Panel1和Panel2上,再将一Label1元件加入Panel2中,调整Panel1尺

寸为适当大小,并修改各元件属性为:

元件

属性名

属性值

Panel1

BevelInner:

bvRaised

BevelOuter: bvNone

BorderStyle: bsSingle

Panel2

Align:

alClient

Image1

AutoSize:

True

Picture:

"Apple.bmp"

Label1

Align:

alClient

Transparent : True

注意:此处Label1的作用不是显示字符,而是利用它响应鼠标消息,如果不用Label1而

直接利用Image1的鼠标事件响应,则会由于其OnMouseDown事件的激活与Image1的自身坐

标移动事件冲突而使图像发生闪烁甚至不能移动。

2、在implementation后加入变量声明:

origin:Tpoint;

image_left:integer;

image_top:integer;

visa1:Tpoint; (鼠标当前位置相对图像右下角的坐标)

visa2:Tpoint; (鼠标当前位置相对图像左上角的坐标)

canmove:boolean;

编写Label1鼠标响应事件:

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;S

hift: TShiftState; X, Y: Integer);

begin

if Button=mbLeft then

begin

origin.x:=X;

origin.y:=Y;

image_left:=image1.left;

image_top:=image1.top;

visa1.x:=X-(image1.width-panel2.width+image1.left);

visa1.y:=Y-(image1.height-panel2.height+image1.top);

visa2.x:=X-image1.left;

visa2.y:=Y-image1.top;

canmove:=true;

end;

end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if canmove then

begin

if X< visa1.x then X:=visa1.x;

if X>visa2.x then X:=visa2.x;

if Y< visa1.y then Y:=visa1.y;

if Y>visa2.y then Y:=visa2.y;

image1.left:=image_left+(X-origin.x);

image1.top:=image_top+(Y-origin.y);

end;

end;

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;Shi

ft: TShiftState; X, Y: Integer);

begin

canmove:=false;

end;



--



帮助别人往上爬的人将爬得最高!

谢谢各位