在 Delphi 7 中截取特定区域的屏幕截图答案

【问题标题】：Take a screenshot of a particular area in Delphi 7在 Delphi 7 中截取特定区域的屏幕截图
【发布时间】：2017-10-28 05:08:30
【问题描述】：

我有一个 delphi 形式的面板，其中包含图片、标签和其他内容。我需要在面板区域截屏。我该怎么做？

【问题讨论】：

标签： screenshot delphi-7

【解决方案1】：

假设您有一个名为 Panel1 的面板用于截屏，一个名为 Button1 的按钮用于截屏，一个 Image1 用于显示截屏，下面是您可以使用的简单代码：

procedure TForm1.Button3Click(Sender: TObject);
var
  bitmap: TBitmap;
  dc: HDC;
begin
  bitmap := TBitmap.Create();
  try
    dc := GetDC(Panel1.Handle);
    try
      bitmap.Width := Panel1.Width;
      bitmap.Height := Panel1.Height;
      BitBlt(
        bitmap.Canvas.Handle, 0, 0, Panel1.Width, Panel1.Height,
        dc, 0, 0,
        SRCCOPY
      );
      Image1.Picture.Bitmap.Assign(bitmap);
      // bitmap.SaveToFile('c:\filename.bmp');
    finally
      ReleaseDC(panel1.Handle, dc);
    end;
  finally
    bitmap.Free;
  end;
end;

希望对您有所帮助。

【讨论】：

Terima Kasih om benar" sesuai yang diinginkan
啜饮。大人。