在additional选项卡下有 一个scrollbox控件,将image放到它里面就行了,

解决方案 »

  1.   

    将Image的属性Stretch设置为True就可以显示了。
      

  2.   

    //加一个ScrollBox MyStream:=TMemoryStream.Create;
       try
       TBlobField(ADOQuery1.FieldByName('Image')).SaveToStream(MyStream);
       MyStream.Position:=0;
       Image1.Picture.Bitmap.LoadFromStream(MyStream);
      if (Image1.Picture.Width>ScrollBox1.HorzScrollBar.Range) OR (Image1.Picture.Height>ScrollBox1.VertScrollBar.Range) then
        begin
         ScrollBox1.HorzScrollBar.Range:=Image1.Picture.Width;
         ScrollBox1.VertScrollBar.Range:=Image1.Picture.Height;
         Image1.Cursor:=crHandPoint;
        end else begin
         //Image1.Center:=True;
         Image1.Width:=Image1.Picture.Width;
         Image1.Height:=Image1.Picture.Height;
        end;
       finally
        MyStream.Free;
       end;
      

  3.   

    请问楼上的,这段代码在什么地方触发,在什么事件里写?
    我在image的输出是用image1.Canvas.TextOut()的形式。