如何实现一张图片覆盖窗体 - 回复 "客栈老人" 的问题

unit Unit1;

interface

uses
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');
{其实不用代码, 在设计时设置一下也可以}
{也可以用 Image1.Picture.Bitmap.LoadFromResourceName() 从资源文件调入}
end;

end.

unit Unit1;

interface

uses
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(); //或者从这个命令从资源文件调入
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
bit.Free;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.StretchDraw(ClientRect, bit);
end;

end.