http://www.tomore.com/1/40378.html
我写的一个小小软,用于上班族偷看小说用的
1、使用了透明窗口,可以调整窗口透明度,外人不易发觉。
2、失去焦点的时候自动最小化到托盘栏,能够快速隐藏。
3、界面只有一个TMemo用于显示小说内容,简单适用。
4、所有操作凝聚在PopMenu里,易于操作。
5、具有历史文档功能,能够快速浏览以前的文章。
6、具有书签功能,能够快速定位到上一次的阅读位置。
问题咨询
1、我想让软件能够获取到它背后遮住的那部分内容,并且作为本软件的背景图,这样的话就可以实现更好的隐藏功能,但是这个如何实现,我没有思路,请高手执教。我将这一功能称为“变色龙隐身术”!!!
2、能否在调整窗口透明度的时候,保证小说内容,也就是文字的透明度不随之改变,这样的话我就可以实现绝对隐藏界面,而使字体浮在屏幕上了。
//-------------------------------------------------
大家可以给我的小软提提建议,也可以帮我解答问题,也可以帮我顶一顶帖子,都十分感谢!!!
我写的一个小小软,用于上班族偷看小说用的
1、使用了透明窗口,可以调整窗口透明度,外人不易发觉。
2、失去焦点的时候自动最小化到托盘栏,能够快速隐藏。
3、界面只有一个TMemo用于显示小说内容,简单适用。
4、所有操作凝聚在PopMenu里,易于操作。
5、具有历史文档功能,能够快速浏览以前的文章。
6、具有书签功能,能够快速定位到上一次的阅读位置。
问题咨询
1、我想让软件能够获取到它背后遮住的那部分内容,并且作为本软件的背景图,这样的话就可以实现更好的隐藏功能,但是这个如何实现,我没有思路,请高手执教。我将这一功能称为“变色龙隐身术”!!!
2、能否在调整窗口透明度的时候,保证小说内容,也就是文字的透明度不随之改变,这样的话我就可以实现绝对隐藏界面,而使字体浮在屏幕上了。
//-------------------------------------------------
大家可以给我的小软提提建议,也可以帮我解答问题,也可以帮我顶一顶帖子,都十分感谢!!!
begin
Color := clWhite;
TransparentColor := True;
TransparentColorValue := clWhite;
end;
窗体上所有clwhite都变成透明,你的memo上的字就完全浮于桌面上了。
但变透明的地方就无法响应事件了,可在memo旁边放个小图标,用于弹出菜单,也可用于拖动窗体
我想用发送消息的方式虚拟"print screen"键被按下,但是结果并不如我所想象的那样,那位高手知道,是不是先发送一条WM_KEYDOWN,然后发送一条WM_KEYUP那?
消息的接收者应该是谁拿???
第一个问题,我打算用cuteant的方法
就是先将自己的应用程序最小化,然后抓屏...或者直接获得桌面画布的canvas
然后利用canvas.CopyRect来完成...