如何用openpicturedialog在窗体上显示一幅图片(*.jpg,*.bmp)?

解决方案 »

  1.   

    在窗体上放一个image控件,然后写procedure TForm1.BitBtn1Click(Sender: TObject);
    begin
      if openpicturedialog1.execute then
      form1.image1.Picture.loadfromfile(OpenPictureDialog1.filename);
    end;
      

  2.   

    uses jpeg;procedure TForm1.BitBtn1Click(Sender: TObject);
    begin
      if openpicturedialog1.execute then
      form1.image2.Picture.loadfromfile(OpenPictureDialog1.filename);
    end;
      

  3.   

    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;