delphi – 如何创建特定区域的屏幕截图？

我有代码,它接收在服务器端之前已经定义的特定区域,并在客户端的Form上创建一个孔.而不是这样,我想要得到这个相同区域的屏幕截图,但是没有出现我的Form在最终的结果,像一个正常的桌面捕获,但在这种情况下只会被捕获,这个小区域.

那么,我可以如何调整我的这个代码呢？

procedure TForm1.CS1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  X1,X2,Y1,Y2: Integer;
  List: TStrings;
  FormRegion,HoleRegion: HRGN;
  StrCommand: String;
begin
  StrCommand := Socket.ReceiveText;

  if Pos('§',StrCommand) > 0 then
  begin
    List := TStringList.Create;
    try
      FormRegion := CreateRectRgn(0,Form12.Width,Form12.Height);
      ExtractStrings(['§'],[],PChar(StrCommand),List);

      X1 := StrToIntDef(List[0],0) - Form12.Left - 2;
      Y1 := StrToIntDef(List[1],0) - Form12.Top - 2;
      X2 := StrToIntDef(List[2],0) - Form12.Left - 2;
      Y2 := StrToIntDef(List[3],0) - Form12.Top - 2;

      HoleRegion := CreateRectRgn(X1,Y2);
      CombineRgn(FormRegion,FormRegion,HoleRegion,RGN_DIFF);
      SetwindowRgn(Form12.Handle,True);
    finally
      List.Free;
    end;
  end;
end;

解决方法

我没有所有的无关信息,但我可以告诉你如何将一个地区的内容捕获到位图中.当然,您需要适当调整坐标以适应您的需要.您可能希望看到GetRgnBox在组合它们之后如何获取总区域的边界矩形.我的例子不这样做,因为我有一个地区.

该示例在表单上需要两个TButtons和一个timage.我已经在表单中定义了这三个组件,并将它们放在代码中,因此不需要包含一个DFM.但是,您需要将组件放在表单上并连接事件处理程序.

原文地址：https://www.jb51.cc/delphi/101487.html

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [e-mail] 举报，一经查实，本站将立刻删除。

• 上一篇：delphi – Symbol’Resume’已被弃下一篇：使用TChromium,Delphi Chromium Em