procedure GetScreen(var bmp: TBitMap);
var
DC: HDC;
MyCanvas: TCanvas;
MyRect: TRect;
begin
DC:= GetWindowDC(0);
MyCanvas:= TCanvas.Create;
try
MyCanvas.Handle:= DC;
MyRect:=Rect(0+x-25, 0+y-25, Screen.Width-x+25, Screen.Height-y+25); // X,Y 为当前鼠标的屏幕坐标
bmp:= TBitMap.Create;
bmp.PixelFormat:= pf24bit;
bmp.Width:= 50;
bmp.Height:= 50;
bmp.PixelFormat:= pf32bit;
bmp.Canvas.CopyRect(MyRect, MyCanvas, MyRect);
finally
MyCanvas.Handle:= 0;
MyCanvas.Free;
releaseDC(0, DC);
end;
end;这样截下图为什么每次都是 0,0 开始的 50X50 位图, 移到其他地方就是白色的了,求指点
var
DC: HDC;
MyCanvas: TCanvas;
MyRect: TRect;
begin
DC:= GetWindowDC(0);
MyCanvas:= TCanvas.Create;
try
MyCanvas.Handle:= DC;
MyRect:=Rect(0+x-25, 0+y-25, Screen.Width-x+25, Screen.Height-y+25); // X,Y 为当前鼠标的屏幕坐标
bmp:= TBitMap.Create;
bmp.PixelFormat:= pf24bit;
bmp.Width:= 50;
bmp.Height:= 50;
bmp.PixelFormat:= pf32bit;
bmp.Canvas.CopyRect(MyRect, MyCanvas, MyRect);
finally
MyCanvas.Handle:= 0;
MyCanvas.Free;
releaseDC(0, DC);
end;
end;这样截下图为什么每次都是 0,0 开始的 50X50 位图, 移到其他地方就是白色的了,求指点
解决方案 »
- 50分只求: Windows socket error: 远程主机强迫关闭了一个现有的连接. 10054 On API 'recv' 的异常名 E 是什么啊?
- 数据库查询
- 在线等待揭贴,请近来看
- 100分相求,程序员如何找到女朋友
- 关于录入数据的问题,在线等待......
- 我最近要做一个餐饮方面的管理软件?
- 在win2000专业版开发的Delphi6+Sql2000应用程序,为什么在win2000Server版不能运行?
- 關于fsMDIChild與fsMDIForm的問題﹗
- 请问Delphi中 @a 和 @@b 代表什么类型?
- 怎样在程序中判断字段的数据类型?
- 我记得 DBGridEh1 这个控件好象能设置序号列,怎么设置啊
- imagelist 在程序中如何增加图片项目?
你限定它就是50*50了,你还能得到什么呢