将图片加载到图像Delphi中

Question

您好我正在处理一个程序,我想添加一个按钮,允许用户将图片从他的计算机加载到图像中

procedure TForm1.btnLoadPicClick(Sender: TObject);
 begin
 img1.Picture.LoadFromFile( 'test.1');
 img1.Stretch := True ;

我正在使用此代码,但它限制了人只能使用该特定图片,我希望他从他的计算机中选择一个谢谢:)

Answer 1

您需要显示一个打开的对话框:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TOpenDialog.Create(self) do
    try
      Caption := 'Open Image';
      Options := [ofPathMustExist, ofFileMustExist];
      if Execute then
        Image1.Picture.LoadFromFile(FileName);
    finally
      Free;
    end;
end;