我參考版主的作品 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37599 小弟想請教有關圖片播放的問題 版主在這程式中，是使用Timer元件來達到播放圖片的目的， 小弟想以for迴圈來代替Timer元件，但是無法顯示全螢目， 不小得問題在那，麻煩個位前輩指點。 謝謝~~ for(int i=0;i < FileListBox1->Items-> Count;i ){ Form2->Show(); Sleep(1000); } 發表人 - breyd 於 2003/10/16 11:30:45

breyd您好: 那試試改成這樣

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Form2->Show();
 for (int i=0;iItems->Count;i  )
 {
  Form2->Image1->Picture->LoadFromFile(FileListBox1->Items->Strings[i]);
  Form2->Label2->Caption=FileListBox1->Items->Strings[i];
  Application->ProcessMessages();
  Sleep(1000);
 }
// Timer1->Enabled=true;
}

順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～ 發表人 -