Image中的滚动条(100分)

L

li__lu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-03

• #1

我学习作图像浏览时
用OPenPictureDialog,mainmenu,form,image
打开一个bmp文件当文件大于当前窗口时就只显示中间部分
没有滚动条
我把image的autosize设为true了

 

L

li__lu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-03

• #2

等待中

 

X

xyl999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-03

• #3

用一个ScrollBox作为容器就可以了

 

Y

yang2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-03

• #4

把Image的strech设为false.把Image放在一个ScrollBox中就可以了

 

L

li__lu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-03

• #5

strech设为false，并把Image放在一个ScrollBox中了
也不行

 

L

li__lu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-03

• #6

等待

 

G

goease

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-03

• #7

放ScrollBox不应该不行啊，、image的autosize为true吧

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-03

• #8

怎么会不行呢？
放一个ScrollBox在Form上，再放一个Image在ScrollBox里面
把Image的AutoSize设为True
搞定

 

L

li__lu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-03

• #9

没错啊
我就是那么做的阿

 

L

li__lu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-03

• #10

真的是不行啊

 

L

li__lu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-03

• #11

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
ScrollBox1: TScrollBox;
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('E:/pictures/壁纸/XP-WALLPAPERS/winXP.bmp');
end;

end.
除了Image的AutoSize设为True外，就动了动align

 

L

li__lu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #12

继续等待
今天我把硬盘分区搞没了
不爽死了

 

H

huasoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #13

不需要用ScrollBox
Form1.AutoScroll=true 即可

 

如

如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #14

你就错在动了Align!

 

L

li__lu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #15

啊？
为什么？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #16

Image1.Align := alNone;

 

舞

舞雪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #17

你不会是指定了Image的align吧？？？？
这个根本不用ScrollBox的。huasoft说的就可以了。

 

L

li__lu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #18

多人接受答案了。