RAD Studio 10.4 test √
Control : OpenDialog
procedure TMainF.Button8Click(Sender: TObject);
begin
OpenDialog1.Create(nil);
OpenDialog1.Filter := '自定义文件|*.png;*.jpg;*.bmp'; // 筛选文件类型
// OpenDialog1.DefaultExt := '*.png'; // 默认文件类型
OpenDialog1.Execute(); // 打开文件选择器
// Edit2.Text := OpenDialog1.FileName; // 返回文件的完整目录
Image1.Picture.LoadFromFile(OpenDialog1.FileName); // 向 Image中添加本地图片
end;
A little bit of notes recorded during study, so that you can read it later.