让你的应用程序背景与桌面溶合

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;