http://www.tomore.com/1/40378.html
我写的一个小小软,用于上班族偷看小说用的
1、使用了透明窗口,可以调整窗口透明度,外人不易发觉。
2、失去焦点的时候自动最小化到托盘栏,能够快速隐藏。
3、界面只有一个TMemo用于显示小说内容,简单适用。
4、所有操作凝聚在PopMenu里,易于操作。
5、具有历史文档功能,能够快速浏览以前的文章。
6、具有书签功能,能够快速定位到上一次的阅读位置。
问题咨询
1、我想让软件能够获取到它背后遮住的那部分内容,并且作为本软件的背景图,这样的话就可以实现更好的隐藏功能,但是这个如何实现,我没有思路,请高手执教。我将这一功能称为“变色龙隐身术”!!!
2、能否在调整窗口透明度的时候,保证小说内容,也就是文字的透明度不随之改变,这样的话我就可以实现绝对隐藏界面,而使字体浮在屏幕上了。
//-------------------------------------------------
大家可以给我的小软提提建议,也可以帮我解答问题,也可以帮我顶一顶帖子,都十分感谢!!!

解决方案 »

  1.   

    多此一举,把小说拷贝到word里面去看就是了,上司看到的还以为你在努力看技术文档呢,嘿嘿~~
      

  2.   

    记得超级解霸能在桌面上看电影,应该是CDC类吧
      

  3.   

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      Color := clWhite;
      TransparentColor := True;
      TransparentColorValue := clWhite;
    end;
    窗体上所有clwhite都变成透明,你的memo上的字就完全浮于桌面上了。
    但变透明的地方就无法响应事件了,可在memo旁边放个小图标,用于弹出菜单,也可用于拖动窗体
      

  4.   

    谢谢楼上的...
    我想用发送消息的方式虚拟"print screen"键被按下,但是结果并不如我所想象的那样,那位高手知道,是不是先发送一条WM_KEYDOWN,然后发送一条WM_KEYUP那?
    消息的接收者应该是谁拿???
      

  5.   

    搬家成功,继续丁丁!!!
    第一个问题,我打算用cuteant的方法
    就是先将自己的应用程序最小化,然后抓屏...或者直接获得桌面画布的canvas
    然后利用canvas.CopyRect来完成...