用 Image 显示资源中的图片

首先编辑 rc 文件如下(假定图片文件放在程序目录下的 img 文件夹下):
bmp1 BITMAP img\bmpFile1.bmp
bmp2 BITMAP img\bmpFile2.bmp

或者:
bmp1,BITMAP,img\bmpFile1.bmp
bmp2,BITMAP,img\bmpFile2.bmp

然后在窗体上添加一个 Image、两个 Button, 代码如下:

---

 Unit1;


  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

  TForm1 = (TForm)
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
     Button1Click(Sender: TObject);
     Button2Click(Sender: TObject);
     FormCreate(Sender: TObject);
  ;

  Form1: TForm1;

{$R 'bmp.RES'}   //调用资源文件的名字
 TForm1.FormCreate(Sender: TObject);

  Image1.AutoSize := True;
;
 TForm1.Button1Click(Sender: TObject);

  Image1.Picture.Bitmap.Handle := LoadBitmap(HInstance, );
;
 TForm1.Button2Click(Sender: TObject);

  p_w_picpath1.Picture.Bitmap.LoadFromResourceName(HInstance, );
;
.

转载于:https://blog.51cto.com/zsqztg/153439