在窗体上放一个image控件,然后写procedure TForm1.BitBtn1Click(Sender: TObject); begin if openpicturedialog1.execute then form1.image1.Picture.loadfromfile(OpenPictureDialog1.filename); end;
uses jpeg;procedure TForm1.BitBtn1Click(Sender: TObject); begin if openpicturedialog1.execute then form1.image2.Picture.loadfromfile(OpenPictureDialog1.filename); end;
1)如果在窗体上显示一幅图片*.bmp procedure TForm1.BitBtn1Click(Sender: TObject); begin if openpicturedialog1.execute then form1.image1.Picture.loadfromfile(OpenPictureDialog1.filename); end; 2)如果在窗体上显示一幅图片*.jpg uses jpeg;procedure TForm1.BitBtn1Click(Sender: TObject); begin if openpicturedialog1.execute then form1.image1.Picture.loadfromfile(OpenPictureDialog1.filename); end;
begin
if openpicturedialog1.execute then
form1.image1.Picture.loadfromfile(OpenPictureDialog1.filename);
end;
begin
if openpicturedialog1.execute then
form1.image2.Picture.loadfromfile(OpenPictureDialog1.filename);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if openpicturedialog1.execute then
form1.image1.Picture.loadfromfile(OpenPictureDialog1.filename);
end;
2)如果在窗体上显示一幅图片*.jpg
uses jpeg;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if openpicturedialog1.execute then
form1.image1.Picture.loadfromfile(OpenPictureDialog1.filename);
end;