你好，我目前正在一个程序，我想添加一个按钮，将允许用户从他的计算机加载图片到图像
procedure TForm1.btnLoadPicClick(Sender: TObject); begin img1.Picture.LoadFromFile( 'test.1'); img1.Stretch := True ;
我正在使用这个代码，但它限制了这个人只能使用特定的图片，我希望他从他的电脑中选择一个，谢谢：）
lbsnaicq1#
您需要显示一个打开的对话框：
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;
1zmg4dgp2#
若要打开图形文件以便用户自己选择该文件，必须将TImage、TOpenPictureDialog和TButton组件放置在窗体上。将下列程式码放在按钮的Click行程常式中：
TImage
TOpenPictureDialog
TButton
If OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
要打开代码顶部的jpeg和png文件，我们需要在uses一行中添加两个库的名称：JPEG和PNGImage。
JPEG
PNGImage
3条答案
按热度按时间lbsnaicq1#
您需要显示一个打开的对话框：
1zmg4dgp2#
若要打开图形文件以便用户自己选择该文件，必须将
TImage、TOpenPictureDialog和TButton组件放置在窗体上。将下列程式码放在按钮的Click行程常式中：
要打开代码顶部的jpeg和png文件，我们需要在uses一行中添加两个库的名称：
JPEG和PNGImage。