如何使选中的多上图像文件装入IMAGE控件。(100分)

X

xsgOK

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #1

一个看图软件，一个TIMER控件，一个IMAGE控件，几种特效处理的方式
（如百叶窗式，推拉式），一个选择文件的按钮，当单击“选择文件”按钮时，
打开“打开图像文件对话框”，OpenPictureDialog1，当用户选择多个图像文件时，
怎样把图像文件根据timer控件的执行。一个一个的装入IMAGE控件，进行特效显示。
谢谢，本人搞了一天也没有搞出来。
　　最好给出代码。谢谢。

 

S

showton

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #2

用Tlist保存图像或TStringList保存文件名，
OpenPictureDialog没用过，大体如下：
var MyImageList:tlist;
bmp:tbitmap;
i:integer;
begin
MyImageList:=tlist.create;
for i:=0 to 图像个数
begin
bmp:=tbitmap.create;
bmp:=图像;
MyImageList.add(bmp);
emd;
end;
取的时候：

for i:=0 to MyImageList.count-1 do
bmp:=MyImageList;
显示bmp即可

TStringList保存文件名类似。

 

Q

qmwuu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #3

若你要图片显示的特殊效果，你可以用Authorware软件。他一定能满足你的要求。

 

X

xsgOK

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #4

很满意。