关于程序背景的问题！(100分)

在有些程序里，比如安装程序，主窗口后总有一个渐蓝色的背景盖住桌面！
请问如何实现！

试试这个。
procedure TmainF.FormPaint(Sender: TObject);
var
X, Y, W, H: LongInt;
ini: TInifile;
fn: String;
s: string;
begin
s:=ExtractFilePath(Application.ExeName);
Ini:=TIniFile.Create(s+'Data/SysSet.INI');
try
Timer1.Enabled:=False;
fn:=ini.ReadString('coverbmp','coverbmp','');
if (fn<>'') and fileExists(fn) then
begin
with Bitmap do
begin
W := Width;
H := Height;
end;
Y := 0;
while Y < Height do
begin
X := 0;
while X < Width do
begin
Canvas.Draw(X, Y, Bitmap);
Inc(X, W);
end;
Inc(Y, H);
end;
end;
finally
ini.Free;
end;
end;

不过是个全屏的窗口.

以上两人加起来够了，结束把

多人接受答案了。