用资源中的图片做背景、使用 LoadFromResourceID

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

或者:
1,BITMAP,img\bmpFile1.bmp
2,BITMAP,img\bmpFile2.bmp

这次我们是给每个资源做了编号, 没有取标识名称; 然后在窗体上添加两个 Button, 代码如下:

---

 Unit1;


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

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

  Form1: TForm1;



  bit: TBitmap;
 TForm1.FormCreate(Sender: TObject);

  bit := TBitmap.Create;
;
 TForm1.Button1Click(Sender: TObject);

  bit := TBitmap.Create;
  bit.LoadFromResourceID(HInstance, );
  Self.Brush.Bitmap := bit;
  Repaint;
;
 TForm1.Button2Click(Sender: TObject);

  bit := TBitmap.Create;
  bit.LoadFromResourceID(HInstance, );
  Self.Brush.Bitmap := bit;
  Repaint;
;
 TForm1.FormDestroy(Sender: TObject);

  bit.Free;
;
.

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