Question

delphi 7! 想让4幅背景图片随时间增加依次呈现，该怎么做？ 求简便方法！

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏70（财富值+成长值）

Answer 1

不知道你的环境是怎么样，说个简单的，界面放个image控件，放timer控件，设置间隔时间
var i:integer;
i:=0;
timer控件时间事件
if(i=0)then
begin
image1.Picture.LoadFromFile('图片1地址');
inc(i);
end
else if(i=1)then
begin
image1.Picture.LoadFromFile('图片2地址');
inc(i);
end
else if(i=2)then
begin
image1.Picture.LoadFromFile('图片3地址');
inc(i);
end
else if(i=3)then
begin
image1.Picture.LoadFromFile('图片4地址');
i:=0;
end

追问

请问如果我的图片的地址在计算机1上，整个工程文件和单元文件拷到优盘里再到另外一台电脑打开图片是不是就不在了？

请问如果我的图片的地址在计算机1上，整个工程文件和单元文件拷到优盘里再到另外一台电脑打开图片是不是就不在了？

这段代码在哪里写呀

追答

肯定不在了，除非你是将图片做为资源包加载在程序里

Answer 2

GIF ...............................................

追问

image 控件支持gif 格式吗

好像不支持哦