我在Form 中, 拉了一个300*300的Image控件,
想实现的是,当载入不同大小的图片时, Image控件的大小也就是300*300不变
但是想多出两个滚动条,一个横,一个竖,当推动横的或竖的滚动条时,能动态的相应移动到载入图片的位置。不知道该怎么实现。 如果Image控件不能实现的话,用其它控件也行,多个组合控件也行。效果就是ACDSEE软件一样,当图片很大时,能产生两个滚动条。拉拉显示。非常感谢那些能阅读我问题的人。
小弟愚钝, 最后有代码显示,可以看看。

解决方案 »

  1.   

    用ScrollBox + Image 就可以了。相应的设置如下:procedure TForm1.FormCreate(Sender: TObject);
    begin
      Self.ScrollBox1.Height := 300;
      Self.ScrollBox1.Width  := 300;
      Self.Image1.Parent := Self.ScrollBox1;
      Self.Image1.Top := 0;
      Self.Image1.Left := 0;
      Self.Image1.AutoSize := True;
      Self.Image1.Show;
    end;
      

  2.   

    楼主可以变相做一下
    1.放一个300*300的panel,
    2.在panel上放image控件,设置image控件的autosize为true