如何实现点下button后换下一张图

[bleachj8]

请教下思路如何实现点下button按钮来切换下一张图

[银点]

把图片的文件名加载到一个Memo里，一行一个
然后在button的Onclick事件里这样写

void __fastcall TForm1::Button4Click(TObject *Sender)
{
  Image1->Picture->LoadFromFile(Memo1->Lines->Strings[Image1->Tag++]);
}

[ccrun.com]

热情回复.

可以搞一个Bitmap数组, 在程序开始时初始化该数组,载入相应的图片.然后在按钮的点击事件中动态切换图片. Assign一下就行了.

[zzbinfo]

我也热情的回复一下,呵呵,这个问题好像原来有人问过的.

TStringList *FileNameList;
AnsiString sFile = "D:\\Backup\\我的文档\\My Pictures\\";
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        TSearchRec sr;
        AnsiString PathString = sFile +"*.jpg";
        FileNameList = new TStringList();
        if (FindFirst(PathString, 0, sr) == 0)
        {
          do
          {
            if ( (sr.Name!=".") && (sr.Name!="..") )
            {
            FileNameList->Add(sr.Name);
            }
          } while (FindNext(sr) == 0);
          }
          FindClose(sr);
}

void __fastcall TForm1::btn4Click(TObject *Sender)
{
static int i =0;
if(i == FileNameList->Count)
{
 i=0;
}
if(i<FileNameList->Count)
  {
  img1->Picture->LoadFromFile(sFile+FileNameList->Strings[i]);
  i++;
  }

}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete FileNameList ;
}
//---------------------------------------------------------------------------

[zzbinfo]

唉,我发的代码杯具了

[ccrun.com]

哈哈哈. 围观楼上的杯具, 动作太慢了. 楼主早就以迅雷不及掩耳盗铃之势结帖了.

[周药师]

void __fastcall TForm1::Button4Click(TObject *Sender)
{
  Image1->Picture->LoadFromFile(YourPathFileName);
}