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;

Answer 2

首先在表单上放置一个Timage和一个OpenPictureDialog，然后在您的uses子句中添加jpeg。然后在btnLoadPic的click事件中将代码放在

程序TForm1.btnLoadPicClick（发件人：TObject）;

开始

    If not OpenPictureDialog1.Execute Then
       Exit;
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    //If not (Image1.Picture.Graphic is TJPEGImage) Then

    //raise Exception.Create('File not JPEG image');

END;

如果您只想要JPEG图像，则取消注释注释行。在对象检查器中，您可以将Timage属性Stretch设置为True。

将图片加载到图像Delphi中

2 个答案: