菜鸟级的问题！(100分)

F

fesxe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-12

• #1

我是个初学者，现在正在做一个图片浏览器，跟DEMOS里的有点像！但我想做一个类似ACDSee的！
我想从FileListBox里读出所有的图片！并分别放在Image1,Image2......Image N .但不懂怎么做！
大家帮帮忙，容不容易实现，不容易就算了！

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-12

• #2

用：
for i:=0 to filelistbox.items.count-1 do
begin
//if filelist.selected then
image.loadfromfile(FileListBox.Items.text);
end;
好象应该是这样 你再试试
可以利用filelist.selcount得到选择的个数。

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-12

• #3

对了 你好象还需要新建一个 image 的控件数组!!

 

F

fesxe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-12

• #4

怎么建一个 image 的控件数组？我不懂！能不能再说一下？

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-12

• #5

可以这样：

Var
img:array[1..100] of TImage
begin
for i:=1 to 100 do //只是举个例子
begin
img:=TImage.Create(self);
img.loadfromfile..... ;
img.Visible:=...;
img.Parent:=form1;
end;

end ;

 

F

fesxe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-12

• #6

非常感谢！