引言: 請問如何可以做到圖片 randomize?? 即是可以做到在每一次open form都出不同的圖片~~ thx!!! 1. 將圖檔名稱是先存放在程式內或外部檔案中，當程式執行時再隨機去讀取圖檔。 2. 利用元件盤上Win3.1中的FileListBox(我目前只會用這個元件)，並設定其Mask屬性為"*.bmp;*.jpg"，至於磁碟機與目錄也可經由屬性Drive,Directory來設定。 3. 要讀入JPEG檔，記得uses JPEG; 簡單程式碼供參考：

var
  Form1: TForm1;    implementation    {$R *.dfm}
uses JPEG; // for .jpg    procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Assign(FileListBox1.Items);
  randomize;
  Image1.Picture.LoadFromFile(FileListBox1.Items[random(FileListBox1.Items.Count)]);
end;

還有一個問題~~ 就是為什麼在mediaplayer的device type中 set了dtAutoselect~~ 在自己的電腦中測驗沒有問題~~但在別人的電腦中便出現error~ form也完全開不到~~請問是什麼問題呢?? 從描述中我不知道答案，恐怕得另等高明了！ 本人才疏學淺~~請教!!請教!! < face="Verdana, Arial, Helvetica"> RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====##### 發表人 - richtop 於 2004/08/27 22:56:05

引言: THX!!! 但可怎樣可經由屬性Drive,Directory來設定磁碟機與目錄??

procedure TForm1.Button2Click(Sender: TObject);
var
   s : string;
begin
  s := GetCurrentDir;          // 取得目前.exe檔所在的路徑
  FileListBox1.Drive := s[1];  // 由上述所在的路徑取得磁碟機的代號
  FileListBox1.Directory := s;
end;