又一个问题(25分)

S

sdenf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-27

• #1

谁来告诉我，怎么用一个OPENPICTUREDIALOG打开多个文件，文件为PICTURE，PICTURE1，
PICTURE2。。。。。

 

S

siyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-27

• #2

把OpenPictureDialog的Option中的ofAllowMultiSelect设为true就
可以实现多选了！

 

L

lb_icesea79

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-27

• #3

晚了

 

S

sdenf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-27

• #4

但是还有一个问题啊，怎么才能把图片分别在不同的Image里打开呢，
总不至于用一个IMAGE打开多个图片吧，这样一来其不是没什么作用吗，

 

S

sdenf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-27

• #5

但是还有一个问题啊，怎么才能把图片分别在不同的Image里打开呢，
总不至于用一个IMAGE打开多个图片吧，这样一来其不是没什么作用吗，

 

S

siyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-27

• #6

你的程序到底要实现怎么样的功能？
显示多个图片很简单，一个图片文件对应一个Image就行了，
如果Image是动态创建的
那么打开多少个文件就创建多少个Image就行了
如果是固定的，比如在页面上设置n个Image，
则一次只能显示你n张图片，多余的用翻页来显示好了

 

S

sdenf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-27

• #7

就是用一个OPENPICTUREDIALOG，必须是同时打开多个图片，同时在对应的IMAGE显示啊，

 

S

siyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-28

• #8

for procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
if OpenPictureDialog1.Execute then
for i:=0 to OpenPictureDialog1.Files.Count-1 do
if FindComponent('Image'+IntToStr(i+1)) is TImage then
with FindComponent('Image'+IntToStr(i+1)) as TImage do
Picture.LoadFromFile(OpenPictureDialog1.Files.Strings);
end;

 

S

sdenf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-29

• #9

分数给你了