First, edit the RC file as follows (assuming that the image file is placed in Program Directory under the IMG folder ):
1 bitmap IMG \ BMP file1.bmp
2 bitmap IMG \ BMP file2.bmp
Or:
1, bitmap, IMG \ BMP file1.bmp
2, bitmap, IMG \ BMP file2.bmp
This time, we assigned a number to each resource without the ID name. Then, we added two buttons to the form,CodeAs follows:
Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; button2: tbutton; procedure alert (Sender: tobject); Procedure button1click (Sender: tobject); Procedure alert (Sender: tobject); Procedure button2click (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} var bit: tbitmap; Procedure tform1.formcreate (Sender: tobject); begin bit: = tbitmap. create; end; // use loadfromresourceid to call procedure tform1.button1click (Sender: tobject) For numbered image resources; begin bit: = tbitmap. create; bit. loadfromresourceid (hinstance, 1); self. brush. bitmap: = bit; repaint; end; Procedure tform1.button2click (Sender: tobject); begin bit: = tbitmap. create; bit. loadfromresourceid (hinstance, 2); self. brush. bitmap: = bit; repaint; end; Procedure tform1.formdestroy (Sender: tobject); begin bit. free; end.
//: