在Delphi 7中，当窗体高于屏幕时从窗体中获取位图

Question

我有一个高于屏幕的表格，当我尝试用

模拟 printscreen 键时

keybd_event(VK_SNAPSHOT, 1, 0, 0);

当然，表单会被裁剪。 所以我尝试在活动表单上执行以下操作：

Clipboard.Assign(GetFormImage);

但是，即使在这种情况下，位图也会被裁剪。

这里有一个旧的 Delphi 组件 BDPrint：

http://www.efg2.com/Lab/Library/Delphi/Printing/

但它不再可用，它能够打印一个创建临时 tImage 然后打印它的表单，甚至是屏幕外部分，但我不再有它的源代码了。

如何生成活动表单的位图以及屏幕外部分，并将其存储在剪贴板中？谢谢

Answer 1

如果我有时间，我可以在脑海中搜索更多内容：

• 先获取窗口的句柄（用FindWindow 或类似的）
• GetwindowDC
• BitBlt 到您自己的 TBitmap 的 Canvas.Handle 上（或 StretchBlt 或个人最喜欢的 PlgBlt）

Answer 2

您不需要涉及剪贴板，也不需要捕获屏幕。尝试将表单的Handle 属性传递给PrintWindow()，或直接向表单发送WM_PRINT 消息。任何一个都可以让您指定一个HDC（例如来自TBitmap.Canvas.Handle 属性的那个），以便窗口自行绘制。