type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure WMWindowPosChanging( var Message: TWMWindowPosChanging);Message WM_WindowPosChanging;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
//设置为最底层
SetWindowPos(Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);
//无标题栏
self.BorderStyle :=bsNone ;
//覆盖桌面
Align :=alClient ;
end;
procedure TForm1.WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
with Message.WindowPos^ do flags:=flags or SWP_NOZORDER;
Message.result:=0;
end;