delphi 桌面放大镜

delphi 桌面放大镜 例子源码？

解决方案 »

  1.   

    想实现就像windows自带的放大镜那种效果 
      

  2.   

    Alphacontrols 7.2X 皮肤组件包，里面有个 TsMagnifier 组件，就是放大镜了。
    你可以单独提取它使用。
      

  3.   

    你好 请问该如何正确的调用windows系统的放大镜工具？
      

  4.   

    我是这样写的     
    shellexecute(handle, 'open', 'C:\WINDOWS\system32\magnify.exe', '-s', '', sw_shownormal); 
    可以调用到系统的放大镜 但是我想让这个放大镜以小窗口的形式显示在桌面的右下方 该如何设置？
      

  5.   


    你好 谢谢 请问能给我发一份 Alphacontrols 7.2X 皮肤组件包 吗？ delphi7邮箱 [email protected]非常感谢 在线等待~~
      

  6.   

    放大镜很好写的呀，谷歌delphi + 放大镜，一堆一堆的代码，不超过100行就实现了~
      

  7.   

    还是这个问题 请问SetWindowPos()具体怎么用呢我是这样写的 
    shellexecute(handle, 'open', 'C:\WINDOWS\system32\magnify.exe', '', '', sw_shownormal); 
    可以调用到系统的放大镜 但是我想让这个放大镜以小窗口的形式显示在桌面的右下方 该如何设置？
      

  8.   

    在一个按钮事件中shellexecute(handle, 'open', 'C:\WINDOWS\system32\magnify.exe', '', '', sw_shownormal); handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄SetWindowPos(handle, '', '', sw_shownormal),HWND_TOPMOST, 100,100, 100,200, SWP_SHOWWINDOW);请问我是调用系统自带的放大镜'C:\WINDOWS\system32\magnify.exe'窗口的标题是什么呢？