delphi中如何让一张图片完全覆盖一个窗体，包括标题栏也要覆盖

procedure wmncpaint(var message:TWMNCPaint); message WM_NCPAINT;

procedure TForm1.wmncpaint(var message:TWMNCPaint);
var
h:Cardinal;
bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile('1.bmp');
h:=GetWindowDC(Handle);
StretchBlt(h,0,0,Width,Height,bmp.Canvas.Handle,0,0,bmp.Width,bmp.Height,SRCCOPY);
ReleaseDC(handle,h);
bmp.Free;
end;

曲线实现
最好让你的窗体不含标题栏：）
呵呵

formstyle