最近在Delphi开发中用到了无边框窗体显示时，无法在任务栏使用右键弹出菜单的情况，经过整理，通过以下方法可以使右键菜单出现：

procedure Tfrm_Base.InitSysMenu;
var
  WindowStyle: Integer;
begin
  WindowStyle := GetWindowLong(Handle, -16);
  WindowStyle := WindowStyle or WS_SYSMENU or WS_MINIMIZEBOX;
  WindowStyle:=WindowStyle xor WS_CAPTION;
  SetWindowLong(Handle, -16, WindowStyle);
end;

http://www.cnblogs.com/gxch/archive/2011/04/22/2024846.html

最新文章

1. CSS实现垂直居中的5种方法
2. Nunit工具做C#的单元测试
3. 项目管理师prince2
4. javascript 数组的深度复制
5. jquery indexOf使用方法
6. git-svn
7. [ 兼容 ] IE和Firefox的Javascript兼容性总结
8. SSIS ->> Parameter
9. 为什么监听不到开机广播action.BOOT_COMPLETED
10. XML美化工具及其他各种美化工具
11. POJ 1860 Currency Exchange + 2240 Arbitrage + 3259 Wormholes 解题报告
12. Android用户界面 UI组件--TextView及其子类(一) TextView
13. 判断input checkbox选中状态
14. hdu4679（树形dp）
15. .NET Framework 各版本区别
16. php 执行效率
17. Spark性能调优之合理设置并行度
18. [Linux]Linux 下的 Docker 安装与使用
19. latex公式、编号、对齐
20. 《DSP using MATLAB》Problem 6.6

热门文章

1. setTimeout里的函数是何时进入任务队列里的
2. WPF 获得触摸精度和触摸点
3. 多线程编程 CreateThread（解释了TContext）
4. 共享Session
5. python生成测试图片
6. 读取数据变JSON传值！
7. VirtualBox虚拟机网络环境Host-Only（对Win10和VirtualBox都有截图）
8. NS2网络模拟(2)-丢包率
9. 1407251735-hd-美素数.cpp
10. pip 9.0 离线安装Python3的环境库