Delphi OpenDialog使用方法

最新推荐文章于 2021-07-13 12:50:20 发布

byc6352

最新推荐文章于 2021-07-13 12:50:20 发布

阅读量3.1k

点赞数

分类专栏： delphi 文章标签： OpenDialog

delphi 专栏收录该内容

39 篇文章 4 订阅

订阅专栏

procedure TfMain.muOpenFileClick(Sender: TObject);
var
  OpenDlg: TOpenDialog;
  strFileName: string;
begin
  OpenDlg := TOpenDialog.Create(nil);
  try
    OpenDlg.InitialDir:=picdir;
    OpenDlg.Filter := 'BMP文件(*.bmp)|*.bmp';
    OpenDlg.DefaultExt := '*.bmp';
    if OpenDlg.Execute then
    begin
      strFileName := Trim(OpenDlg.FileName);
      if strFileName <> '' then
      begin
        mFileName := strFileName;
        image1.Picture.LoadFromFile(mFilename);
        stb1.Panels[1].Text:='文件名：'+extractfilename(mFilename);
        stb1.Panels[0].Text:='图片大小：'+inttostr(image1.Picture.Width)+','+inttostr(image1.Picture.Height);
      end;
    end;
  finally
    FreeAndNil(OpenDlg);
  end;
end;