如何在程序运行时，在屏幕上出现一个抓取的矩形框，类似一般的抓图软件。

LinLei 2003-09-30 09:50:49

如何在程序运行时，在屏幕上出现一个抓取的矩形框，类似一般的抓图软件。最好给个源码事例。

...全文

39 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

47522341 2003-09-30

打赏
举报

是不是要在mousemove事件里自己绘制一个图框；^_^，

tom20803862 2003-09-30

打赏
举报

兄弟，做这个另类的程序做啥用啊！我没做过，但提个馊主意: 做个有边缘中间透明的窗口吧!做各种各样的窗口书上很多,定可做到的

IORILI 2003-09-30

打赏
举报

截取屏幕指定区域，
代码如下：
procedure TClient.ScreenCap(LeftPos,TopPos,
RightPos,BottomPos:integer);
var
RectWidth,RectHeight:integer;
SourceDC,DestDC,Bhandle:integer;
Bitmap:TBitmap;
begin
RectWidth:=RightPos-LeftPos;
RectHeight:=BottomPos-TopPos;
SourceDC:=CreateDC('DISPLAY','','',nil);
DestDC:=CreateCompatibleDC(SourceDC);
Bhandle:=CreateCompatibleBitmap(SourceDC,
RectWidth,RectHeight);
SelectObject(DestDC,Bhandle);
BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC,
LeftPos,TopPos,SRCCOPY);
Bitmap:=TBitmap.Create;
Bitmap.Handle:=BHandle;
BitMap.SaveToStream(BmpStream);
BmpStream.Position:=0;
LeftSize:=BmpStream.Size;
Bitmap.Free;
DeleteDC(DestDC);
ReleaseDC(Bhandle,SourceDC);
end;