怎样固定图象的长宽比，将image控件适应屏幕显示

怎样固定图象的长宽比，将image控件适应屏幕显示
首先，设置Image的Strech属性为True。  
  当一个图象被装载后：  
   
  //   如果图象的宽高比比Image控件所在的区域(其父窗口的客户区)的宽高比大，则设置Image的控件的宽度为所在区域的宽度；否则设置Image的控件的高度为所在区域的高度；然后设置另一边为相应比例的长度。  
  if   (Image1.Picture.Graphic.Width   div   Image1.Picture.Graphic.Height)   >   Image1.Parent.ClientWidth   div   Image1.Parent.ClientHeight   then  
  begin  
      Image1.Width   :=   Image1.Parent.ClientWidth;  
      Image1.Height   :=   Image1.Picture.Graphic.Height   *   Image1.Width   div   Image1.Picture.Graphic.Height;  
  end  
  else  
  begin  
      Image1.Height   :=   Image1.Parent.ClientHeight;  
      Image1.Width   :=   Image1.Picture.Graphic.Width   *   Image1.Height   div   Image1.Picture.Graphic.Width;  
  end;  
   
  这样，就可以看见你想要的效果。不过，只是出个点子，还需要你去调试代码和加入防错的措施（如：可能性分母为0）。