第一------第六的图片都已做好!!多谢各位大大!!!

解决方案 »

  1.   

    能做出的请到这儿回复再领100分!!!http://expert.csdn.net/Expert/topic/3005/3005018.xml?temp=.3290064
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      I: Integer;
      PicturePath: String;
    begin
      //排序
      for I:=1 to 6 do
      begin
        PicturePath:='C:\Picture\'+IntToStr(I)+'.jpg';
        try
          TImage(FindComponent('Image' + IntToStr(I))).Picture.LoadFromFile(PicturePath);
        except
          Showmessage('指定的图片不存在');
        end;
      end;
    end;
      

  3.   

    http://yb0100.8u8.com/22.jpg,各位大大看看就知道我的意思了