瀏覽圖片BCB

載點:
https://docs.google.com/uc?id=0B4PwTcFHZPWbYjUzNDQxNjYtYTk2Yi00ZTY4LTg1MTUtMWU1ZjQyZWY0MmM4&export=download&hl=zh_TW

外觀:

關鍵程式碼:
void __fastcall TForm1::FilterComboBox1Change(TObject *Sender)
{
  FileListBox1->Mask=FilterComboBox1->Mask;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DriveComboBox1Change(TObject *Sender)
{
  DirectoryListBox1->Drive=DriveComboBox1->Drive;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DirectoryListBox1Change(TObject *Sender)
{
  FileListBox1->Directory=DirectoryListBox1->Directory;
  Edit1->Text=DirectoryListBox1->Directory;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FileListBox1Change(TObject *Sender)
{
  String file_name;
  file_name=FileListBox1->FileName;
  Edit1->Text=file_name;
  if(file_name!="")
    Image1->Picture->LoadFromFile(file_name);       
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==13)
  {
    if(FileExists(Edit1->Text))
      Image1->Picture->LoadFromFile(Edit1->Text);
  }
}
//---------------------------------------------------------------------------

顯示檔案,與讀圖