C++Builder中大尺寸图象的显示技巧

在C++Builder中利用TImage控件可以轻松地读入并显示图象，但TImage 控件本身不可以接收输入焦点，也没带有滚动条，在显示超出显示区域范围的大图象时，需要对TImage控件进行加强。本文提出两种最容易实现且有效的方法，满足不同应用的需求。 

方法一：增加滚动条。 

增加滚动条可以通过将TImage放在TScrollBox控件中来实现。步骤如下： 

（1）、在窗体中放置一个TScrollBox控件，调整好其尺寸。 

（2）、设置TScrollBox控件的AutoScroll属性为True。 

（3）、在TScrollBox控件是放置一个TImage控件。 

（4）、设置TImage控件的属性：AutoSize为True，Left为0，Top为0。经以上增强之后，如果TImage的图象比显示窗口大，滚动条会自动出现，如果图象小于显示窗口，滚动条自动消失，实现了大图象的浏览。 

方法二：图象漫游。 

图象漫游是指不用滚动条，通过键盘或者鼠标控制图象的移动，从而在较小的显示区域内可以浏览图象的任何部分。下面以鼠标控制为例说明。 海同科技在C++Builder中利用TImage控件可以轻松地读入并显示图象，但TImage 控件本身不可以接收输入焦点，也没带有滚动条，在显示超出显示区域范围的大图象时，需要对TImage控件进行加强。本文提出两种最容易实现且有效的方法，满足不同应用的需求。 

方法一：增加滚动条。 

增加滚动条可以通过将TImage放在TScrollBox控件中来实现。步骤如下： 

（1）、在窗体中放置一个TScrollBox控件，调整好其尺寸。 

（2）、设置TScrollBox控件的AutoScroll属性为True。 

（3）、在TScrollBox控件是放置一个TImage控件。 

（4）、设置TImage控件的属性：AutoSize为True，Left为0，Top为0。经以上增强之后，如果TImage的图象比显示窗口大，滚动条会自动出现，如果图象小于显示窗口，滚动条自动消失，实现了大图象的浏览。 

方法二：图象漫游。 

图象漫游是指不用滚动条，通过键盘或者鼠标控制图象的移动，从而在较小的显示区域内可以浏览图象的任何部分。下面以鼠标控制为例说明。 海同科技在C++Builder中利用TImage控件可以轻松地读入并显示图象，但TImage 控件本身不可以接收输入焦点，也没带有滚动条，在显示超出显示区域范围的大图象时，需要对TImage控件进行加强。本文提出两种最容易实现且有效的方法，满足不同应用的需求。 

方法一：增加滚动条。 

增加滚动条可以通过将TImage放在TScrollBox控件中来实现。步骤如下： 

（1）、在窗体中放置一个TScrollBox控件，调整好其尺寸。 

（2）、设置TScrollBox控件的AutoScroll属性为True。 

（3）、在TScrollBox控件是放置一个TImage控件。 

（4）、设置TImage控件的属性：AutoSize为True，Left为0，Top为0。经以上增强之后，如果TImage的图象比显示窗口大，滚动条会自动出现，如果图象小于显示窗口，滚动条自动消失，实现了大图象的浏览。 

方法二：图象漫游。 

图象漫游是指不用滚动条，通过键盘或者鼠标控制图象的移动，从而在较小的显示区域内可以浏览图象的任何部分。下面以鼠标控制为例说明。 在C++Builder中利用TImage控件可以轻松地读入并显示图象，但TImage 控件本身不可以接收输入焦点，也没带有滚动条，在显示超出显示区域范围的大图象时，需要对TImage控件进行加强。本文提出两种最容易实现且有效的方法，满足不同应用的需求。 

方法一：增加滚动条。 

增加滚动条可以通过将TImage放在TScrollBox控件中来实现。步骤如下： 

（1）、在窗体中放置一个TScrollBox控件，调整好其尺寸。 

（2）、设置TScrollBox控件的AutoScroll属性为True。 

（3）、在TScrollBox控件是放置一个TImage控件。 

（4）、设置TImage控件的属性：AutoSize为True，Left为0，Top为0。经以上增强之后，如果TImage的图象比显示窗口大，滚动条会自动出现，如果图象小于显示窗口，滚动条自动消失，实现了大图象的浏览。 

方法二：图象漫游。 

图象漫游是指不用滚动条，通过键盘或者鼠标控制图象的移动，从而在较小的显示区域内可以浏览图象的任何部分。下面以鼠标控制为例说明。

（1）、在窗体中放置一个TPanel控件，调整好其尺寸。 

（2）、在TPanel控件是放置一个TImage控件。 

（3）、设置TImage控件的AutoSize属性为True,Left属性为0，Top属性为0。 

（4）、在TForm1的类定义中加两个私有变量:intiX0,iY0; 

（5）、响应TImage控件的OnMouseDown和OnMouseMove事件。 

void__fastcallTForm1::Image1MouseDown(TObject*Sender, 
TMouseButtonButton,TShiftStateShift,intX,intY) 
{ 
iX0=X; 
iY0=Y; 
} 
 
void__fastcallTForm1::Image1MouseMove 
(TObject*Sender,TShiftStateShift,intX,intY) 
{ 
intiDeltaX,iDeltaY; 
if(Shift.Contains(ssLeft)) 
{ 
iDeltaX=X-iX0; 
iDeltaY=Y-iY0; 
if(iDeltaY) 
Image1->Left+=iDeltaX; 
if(iDeltaY) 
Image1->Top+=iDeltaY; 
} 
}

（6）、运行时按住鼠标左键拖动，图象将跟随移动。 

（7）、如果通过键盘控制，只需参考鼠标控制的代码，加入键盘控制即可。 

（8）、实际应用时，根据需要加入边界限制，保证图象不会被移出显示区域之外。 

（1）、在窗体中放置一个TPanel控件，调整好其尺寸。 

（2）、在TPanel控件是放置一个TImage控件。 

（3）、设置TImage控件的AutoSize属性为True,Left属性为0，Top属性为0。 

（4）、在TForm1的类定义中加两个私有变量:intiX0,iY0; 

（5）、响应TImage控件的OnMouseDown和OnMouseMove事件。 

void__fastcallTForm1::Image1MouseDown(TObject*Sender, 
TMouseButtonButton,TShiftStateShift,intX,intY) 
{ 
iX0=X; 
iY0=Y; 
} 
 
void__fastcallTForm1::Image1MouseMove 
(TObject*Sender,TShiftStateShift,intX,intY) 
{ 
intiDeltaX,iDeltaY; 
if(Shift.Contains(ssLeft)) 
{ 
iDeltaX=X-iX0; 
iDeltaY=Y-iY0; 
if(iDeltaY) 
Image1->Left+=iDeltaX; 
if(iDeltaY) 
Image1->Top+=iDeltaY; 
} 
}

（6）、运行时按住鼠标左键拖动，图象将跟随移动。 

（7）、如果通过键盘控制，只需参考鼠标控制的代码，加入键盘控制即可。 

（8）、实际应用时，根据需要加入边界限制，保证图象不会被移出显示区域之外。 

（1）、在窗体中放置一个TPanel控件，调整好其尺寸。 

（2）、在TPanel控件是放置一个TImage控件。 

（3）、设置TImage控件的AutoSize属性为True,Left属性为0，Top属性为0。 

（4）、在TForm1的类定义中加两个私有变量:intiX0,iY0; 

（5）、响应TImage控件的OnMouseDown和OnMouseMove事件。 

void__fastcallTForm1::Image1MouseDown(TObject*Sender, 
TMouseButtonButton,TShiftStateShift,intX,intY) 
{ 
iX0=X; 
iY0=Y; 
} 
 
void__fastcallTForm1::Image1MouseMove 
(TObject*Sender,TShiftStateShift,intX,intY) 
{ 
intiDeltaX,iDeltaY; 
if(Shift.Contains(ssLeft)) 
{ 
iDeltaX=X-iX0; 
iDeltaY=Y-iY0; 
if(iDeltaY) 
Image1->Left+=iDeltaX; 
if(iDeltaY) 
Image1->Top+=iDeltaY; 
} 
}

（6）、运行时按住鼠标左键拖动，图象将跟随移动。 

（7）、如果通过键盘控制，只需参考鼠标控制的代码，加入键盘控制即可。 

（8）、实际应用时，根据需要加入边界限制，保证图象不会被移出显示区域之外。 

（1）、在窗体中放置一个TPanel控件，调整好其尺寸。 

（2）、在TPanel控件是放置一个TImage控件。 

（3）、设置TImage控件的AutoSize属性为True,Left属性为0，Top属性为0。 

（4）、在TForm1的类定义中加两个私有变量:intiX0,iY0; 

（5）、响应TImage控件的OnMouseDown和OnMouseMove事件。 

void__fastcallTForm1::Image1MouseDown(TObject*Sender, 
TMouseButtonButton,TShiftStateShift,intX,intY) 
{ 
iX0=X; 
iY0=Y; 
} 
 
void__fastcallTForm1::Image1MouseMove 
(TObject*Sender,TShiftStateShift,intX,intY) 
{ 
intiDeltaX,iDeltaY; 
if(Shift.Contains(ssLeft)) 
{ 
iDeltaX=X-iX0; 
iDeltaY=Y-iY0; 
if(iDeltaY) 
Image1->Left+=iDeltaX; 
if(iDeltaY) 
Image1->Top+=iDeltaY; 
} 
}

（6）、运行时按住鼠标左键拖动，图象将跟随移动。 

（7）、如果通过键盘控制，只需参考鼠标控制的代码，加入键盘控制即可。 

（8）、实际应用时，根据需要加入边界限制，保证图象不会被移出显示区域之外。 

原文链接：http://www.apkbus.com/blog-632804-58907.html