How to implement an image coverage form-reply to the "inn elders" question

Problem Source: http://www.cnblogs.com/del/archive/2008/11/25/1339604.html#1381839

Method 1: Use timage

 
Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, extctrls; Type tform1 = Class (tform) image1: timage; Procedure formcreate (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} procedure tform1.formcreate (Sender: tobject); begin image1.align: = alclient; image1.stretch: = true; image1.picture. loadfromfile ('C: \ temp \ test.bmp '); {actually noCodeIn the design, you can also set it to} {or use image1.picture. bitmap. loadfromresourcename () to call from the resource file} end; end.

  
 

Method 2: Use tbitmap

 unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs; Type tform1 = Class (tform) procedure formcreate (Sender: tobject); Procedure formdestroy (Sender: tobject); Procedure formpaint (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} var bit: tbitmap; Procedure tform1.formcreate (Sender: tobject); begin bit: = tbitmap. create; bit. loadfromfile ('C: \ temp \ test.bmp '); // bit. loadfromresourcename (); // or call the end command from the resource file; Procedure tform1.formdestroy (Sender: tobject); begin bit. free; end; Procedure tform1.formpaint (Sender: tobject); begin canvas. stretchdraw (clientrect, bit); end.