]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ Windows API可以给我们的程序带来许多的方便，现在我们便来讨论一个使用

PaintDeskop。

 PaintDesktop是一个在WindowsNT中可以用的Api.

 我们首先做一个简单的例子。

procedure TForm1.Button1Click(Sender:TObject);

begin

  PaintDesktop(Canvas.handle);

end;

点击一下button1，你可以发现你的应用程序的背景是桌面的一部分。

但是如果你的程序中有TLabel，TImage等东西，你会发现它们都消失了，这是

因为你还没有对它们进行重绘。如果我们要对所有的TLabel进行重画。可以用

下面的过程。

procedure PaintWithDesktop(AForm:TForm);

var

 i: integer;

begin

 with AForm do

 begin

   PaintDeskTop(Canvas.handle);

   for i:=0 to ControlCount-1 do

     if Controls[i] is TGraphicControl then

       Controls[i].perform(WM_PAINT, TLabel(Controls[i]).canvas.handl

e, 0);

 end;

end;

如果我们要使程序自动的重画，只要在WM_MOVE,WM_Paint,写下以下代码。

procedure TForm1.WMMove(var Message: TWMMove);

begin

 inherited;

 PaintWithDesktop(self);

end;

procedure TForm1.WMPaint(var Message: TWMPaint);

begin

 inherited;

 PaintWithDesktop(self);

end;