盒子论坛 v2.1

var
  Form1: TForm1;
  RunStep:integer;//运行步序

procedure TForm1.Button1Click(Sender: TObject);
begin

     runstep:=1; //运行步序
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

    case runstep of  {00}
// 第二步序
1:begin
      runstep:=2; //运行步序；
         a.picture.LoadFromFile('D:Pictures\1.bmp');
         b.picture.LoadFromFile('D:Pictures\2.bmp');
    end;

2:begin
      runstep:=3; //运行步序；
         a.picture.LoadFromFile('D:Pictures\3.bmp');
         b.picture.LoadFromFile('D:Pictures\4.bmp');
    end;
3:begin
      runstep:=4; //运行步序；
         a.picture.LoadFromFile('D:Pictures\1.bmp');
         b.picture.LoadFromFile('D:Pictures\4.bmp');
    end;

4: begin
      runstep:=5; //运行步序；
         a.picture.LoadFromFile('D:Pictures3.bmp');
         b.picture.LoadFromFile('D:Pictures\1.bmp');
  end;
end

   （现在是单步运行，即点按钮－－"Button1"后再点击"Button2"一次程序向前运行一步。由runstep：=1到runstep：=4后停止。现在偶想加一键：“Button3”点击后，程序在一定时间间隔下，自动由runstep：=1到runstep：=4往复循环。这一步如何写？或提供范例！
    麻烦各位了！！
       还有：1.为什么我把图片的属性设“透明”后有的变透明，而有的“置之不理”还是现底色，为什么啊？
           2.为什么程序拿到别的机器上编译，提示“图片路径不对”为什么？如何改？？
      谢谢了！

----------------------------------------------
-

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	大贡献会员

2003/11/18 12:18:59

1楼：

用个Timer（定时器）即可实现，具体方法是在Timer按件的OnTimer事件中加上Button2
的Click代码，只是需将runstep:=5改为RunStep:=1，然后在你的Button3的Click事件
中设置Timer控件的Enabled属性即可；
至于“透明”不起作用应该是你的图片底色不纯；
“图片路径不对”应该是你的程序用的是绝对路径，你可改为用相对路径。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

作者：

dszman (啦啦啦)	★☆☆☆☆	-
	普通会员

2003/11/18 18:21:41

2楼：

谢谢！我试一试！
----------------------------------------------
-

信息

登陆以后才能回复