BCB中的“浏览文件”组件类---TOpenDialog

      在很多界面软件中， 点击某按钮后， 经常弹出一个目录， 让我们选择其中的文件(作为输入)， 这是怎么做到的呢？ 其实非常简单， BCB给我们提供了现成的东东：

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

#include 
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TOpenDialog *test = new TOpenDialog(this);

    test->Title = "请选择配置文件";  // 弹出框的标题
    test->InitialDir = "d:";   // 默认目录
    test->Filter="txt files (*.txt)|*.txt";  // 文件类型

    if(test->Execute())
    {
          ShowMessage(test->FileName);  // 用户选择了某文件
    }
    else
    {
          ShowMessage("error");  // 用户放弃选择
    }

    delete test;
}
//---------------------------------------------------------------------------