OpenDialog 開啟檔案

我通常會新增一個按鈕，上面文字為".."，然後再新新一個OpenDialog元件，其中要注意是Filter屬性，加入下列文字
組態設定檔(*.ini)¦*.ini¦所有檔案(*.*)¦*.* //Filter name¦Filter
然後在button的onclick加入下列文字

procedure TFlogin.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Edit1.Text:= OpenDialog1.FileName;
  end;
end;