procedure TForm1.WMEraseBkng(var MSg:TWMEraseBkgnd);
begin
Msg.Result:=1;
end; 上面这个函数是为了在屏幕上取色用的,它可以把整个屏幕载入窗口,这时,屏幕就像被锁定一样。移动窗口时,也会在屏幕上留下痕迹。 请问,不需要取色的时候,怎样让这个过程失效,或者说禁用它,让屏幕恢复正常,需要取色时再用。
begin
Msg.Result:=1;
end; 上面这个函数是为了在屏幕上取色用的,它可以把整个屏幕载入窗口,这时,屏幕就像被锁定一样。移动窗口时,也会在屏幕上留下痕迹。 请问,不需要取色的时候,怎样让这个过程失效,或者说禁用它,让屏幕恢复正常,需要取色时再用。
解决方案 »
- 使用了BusinessSkinForm组件的窗体如何去掉“最大化”按钮
- 请教:delphi7编译时出现文件未找到错误
- ~哪位有直线控件的第三方组件?急用!!!
- Delphi7中Frame编译问题?
- 想到北京找份工作,大家给介绍几个需要Delphi程序员的公司
- 简单问题!
- 【【【DBgrid中的数据显示问题】】】 displayformat:='#0.00'怎么不行呀??
- 请问有谁编写过关于摄像头编程的程序???`
- 有关打开HTML HELP 帮助文件中的起始页的定位
- 如何修改他?
- delphi什么版本能支持双字节的文字
- 如何用DELPHI得到EXCEL工作表sheet1内的自定义宏函数的返回值?
Msg.Result:=1;
试过了,不行,就算整个Msg.Result:=1;这一句不要,也一样,甚至Msg.Result:=0;,也一样。只有删除整个过程,屏幕才正常。这个过程应该叫屏幕重画吧?
我只是取一个点的颜色,而是在两个屏幕间不停地切换,不停地取色,如果用你的方法截入Form,那是相当耗时的,并且我切换的屏幕是两个外部程序的窗口。
这个可以有。
再不行,可以只截取目标像素那一点到TBitmap中
sailxia,能稍稍给些提示吗?最好贴点代码上来研究