怎样在TImage控件中使用滚动条？

Question

放在TScrollBox里面然后TImage的DoubleBuffered:=true;

Answer 1

TImage哪有DoubleBuffered属性呀？能否说清楚一点？谢谢！

Answer 2

你在程序里引用，它是一个隐藏的属性
image1.DoubleBuffered

Answer 3

 是Image的Parent的属性，这里是 Form1.DoubleBuffered,（我不知道TScrollBox怎么用）

Answer 4

我已经试了，image1.DoubleBuffered ：=True编译出错；
Form1.DoubleBuffered ：=True没一点效果

Answer 5

ScrollBox1.DoubleBuffered := true;

Answer 6

还是不能实现图象框内图象的滚动。是不是要通过某种方式把Image1与ScrollBox1联系起来？

Answer 7

哦，你早说，
你要把Image的AutoSize设为True

Answer 8

以下是源代码
先在放两个TScrollBar构件和一个IMAGE构件
很简单吧，记得给分哦！ ^_^  :-)
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Image1: TImage;
    H: TScrollBar;
    V: TScrollBar;
    procedure FormCreate(Sender: TObject);
    procedure HChange(Sender: TObject);
    procedure VChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;  B:tbitmap;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
b:=tbitmap.Create;
b.LoadFromFile('c:\windows\安装程序.bmp');
h.Max:=b.Width-image1.Width;
v.Max:=b.Width-image1.Height;
end;procedure TForm1.HChange(Sender: TObject);
begin
image1.Refresh ;
bitblt(image1.Canvas.Handle,0,0,image1.Width,image1.Height,b.Canvas.Handle,h.Position,v.Position,srccopy);end;procedure TForm1.VChange(Sender: TObject);
begin
image1.Repaint;
bitblt(image1.Canvas.Handle,0,0,image1.Width,image1.Height,b.Canvas.Handle,h.Position,v.Position,srccopy);
end;end.

Answer 9

将TImage放到TScrollBox里面;
TImage.Top := 0;
TImage.Left := 0;
TImage.AutoSize := true;

Answer 10

kao,写错了 。
将TImage放到TScrollBox里面;
Image1.Top := 0;
Image1.Left := 0;
Image1.AutoSize := true; 

Answer 11

Kao问题解决了！
谁说TImage.AutoSize := true; 就给谁加分！