方法一:增加滚动条。
NvS北方站长站增加滚动条可以通过将TImage放在TScrollBox控件中来实现。步骤如下:
NvS北方站长站(1)、在窗体中放置一个TScrollBox控件,调整好其尺寸。
NvS北方站长站(2)、设置TScrollBox控件的AutoScroll属性为True。
NvS北方站长站(3)、在TScrollBox控件是放置一个TImage控件。
NvS北方站长站(4)、设置TImage控件的属性:AutoSize为True,Left为0,Top为0。经以上增强之后,如果TImage的图象比显示窗口大,滚动条会自动出现,如果图象小于显示窗口,滚动条自动消失,实现了大图象的浏览。
NvS北方站长站方法二:图象漫游。
NvS北方站长站图象漫游是指不用滚动条,通过键盘或者鼠标控制图象的移动,从而在较小的显示区域内可以浏览图象的任何部分。下面以鼠标控制为例说明。
NvS北方站长站(1)、在窗体中放置一个TPanel控件,调整好其尺寸。
NvS北方站长站(2)、在TPanel控件是放置一个TImage控件。
NvS北方站长站(3)、设置TImage控件的AutoSize属性为True,Left属性为0,Top属性为0。
NvS北方站长站(4)、在TForm1的类定义中加两个私有变量:intiX0,iY0;
NvS北方站长站(5)、响应TImage控件的OnMouseDown和OnMouseMove事件。
NvS北方站长站void__fastcallTForm1::Image1MouseDown(TObject*Sender,
NvS北方站长站TMouseButtonButton,TShiftStateShift,intX,intY)
NvS北方站长站{
NvS北方站长站iX0=X;
NvS北方站长站iY0=Y;
NvS北方站长站}
NvS北方站长站void__fastcallTForm1::Image1MouseMove
NvS北方站长站(TObject*Sender,TShiftStateShift,intX,intY)
NvS北方站长站{
NvS北方站长站intiDeltaX,iDeltaY;
NvS北方站长站if(Shift.Contains(ssLeft))
NvS北方站长站{
NvS北方站长站iDeltaX=X-iX0;
NvS北方站长站iDeltaY=Y-iY0;
NvS北方站长站if(iDeltaY)
NvS北方站长站Image1->Left+=iDeltaX;
NvS北方站长站if(iDeltaY)
NvS北方站长站Image1->Top+=iDeltaY;
NvS北方站长站}
NvS北方站长站}
NvS北方站长站(6)、运行时按住鼠标左键拖动,图象将跟随移动。
NvS北方站长站(7)、如果通过键盘控制,只需参考鼠标控制的代码,加入键盘控制即可。
NvS北方站长站(8)、实际应用时,根据需要加入边界限制,保证图象不会被移出显示区域之外。
NvS北方站长站以上两种方法在本人开发的软件当中多次应用,效果很好。
NvS北方站长站
共有 0 位网友发表了评论 此处只显示部分留言 点击查看完整评论页面