unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, clipbrd, StdCtrls, ExtCtrls;    type
  TFrmViewImage = class(TForm)
    ImgView: TImage;
    procedure FormResize(Sender: TObject);
  private
    procedure ImageAutoSize(ImgPicture: TImage; iWidth, iHeight: Integer);
    { Private declarations }
  public
    { Public declarations }
  end;    var
  FrmViewImage: TFrmViewImage;    implementation    {$R *.dfm}    procedure TFrmViewImage.FormResize(Sender: TObject);
begin
  //调整窗口大小时自动缩放并居中显示
  ImageAutoSize(ImgView, Self.ClientWidth, Self.ClientHeight);
  ImgView.Top := (Self.ClientHeight - ImgView.Height) Div 2;
  ImgView.Left := (Self.ClientWidth - ImgView.Width) Div 2;
end;    procedure TFrmViewImage.ImageAutoSize(ImgPicture: TImage; iWidth, iHeight : Integer);
Var
  iOldWidth, iOldHeight, iSize : Integer;
  dW2H : Double;
begin
  ImgPicture.AutoSize := False;
  ImgPicture.Stretch := True;
  //缩放比例系数
  iSize := 1;
  //获得原始图片尺寸
  iOldWidth := ImgPicture.Picture.Width;
  iOldHeight := ImgPicture.Picture.Height;
  //计算图片长高比例
  dW2H := iOldWidth/iOldHeight;
  //按比例缩小
  While (iOldWidth>iWidth) Or (iOldHeight>iHeight) do
  begin
    iOldWidth := iOldWidth-Round(iOldWidth * (iSize*dW2H/100));
    iOldHeight := iOldHeight-Round(iOldHeight * (iSize*dW2H/100));
    Inc(iSize);
  end;
  //显示比例图
  ImgPicture.Width := iOldWidth;
  ImgPicture.Height := iOldHeight;
end;    end.    

引言: 如果您想將圖直接畫在窗口上 當然可以, 但是您想過嗎, 每當窗口被蓋住後又恢復, 移動後, 放大縮小 這個圖案都要重畫, 所以一定要有地方存一份原始圖案, 不然每次都要去讀檔案.... 既然一定要存一份複本, 為何不就交給 >< face="Verdana, Arial, Helvetica"> 先把Jpeg放到一个TBitmap里。 FBmp:TBitmap; FBmp:=TBitmap.Create; 然后把JPEG放到这个FBmp里去。 然后，画到窗口上：Form1.Canvas.StreachDraw(........)，参数顺序我不记得了。总之，里面应该是X、Y坐标点和要画的图 FBmp 另外，画图这段语句，要放到 Form1.Onpaint 里去。每次重画窗口的时候都画它。这样就不怕窗口被覆盖后图没了。