Z
zhukewen
Unregistered / Unconfirmed
GUEST, unregistred user!
以下是我的代码<br> function GetFormBitmap: TBitmap;<br> var<br> ScreenDC: hDC;<br> begin<br> Result := TBitmap.Create;<br> Result.Width := Width;<br> Result.Height := Height;<br> ScreenDC := GetDC(0);<br> bitblt(Result.Canvas.Handle,0,0,Width,Height,ScreenDC,Left,Top,SRCCOPY);<br> ReleaseDC(0,ScreenDC);<br> end;<br>在Windows 2000 下运行,偶尔会出现抓取的图象是空白的,接着就每次打印都是空白,<br>直到程序退出后重新运行,又一切正常。次过程中程序没有报告任何错误。我以前用<br>MainForm.Print,现象与上面一样。是否是操作系统的bug?