我想看到image1的全貌(10分)

  • 主题发起人 主题发起人 tuoniao055
  • 开始时间 开始时间
T

tuoniao055

Unregistered / Unconfirmed
GUEST, unregistred user!
1现有一form1,上面有一image1,image1的width和height为2000,所以运行时使form1带有滚动条,这时我想看到image1的全貌,就必须拖动滚动条,很麻烦,如何编制如有些看图软件所具有的功能,就是,当图象很大时,鼠标移到图象上,变成一小手,然后可以拨动图象,看到被挡住的部分,鼠标的形状无所谓,不是小手也无关,只要可以移动图象(image1)就可。我编了半天,也没编出来,还请各位大侠多多指教。
 
编写OnMouseMove,OnMouseUp,OnMouseDown三个函数。
 
用一个Panel1做 容器,上面放Image
procedure Image.OnMouseDown();
begin
if Button=mbLeft then Panel1.Perform(WM_SYSCOMMAND,$F012,0);
end;
 
后退
顶部