Delphi
关注
分享
扫一扫
kong6001
这个作者很懒，什么都没留下…
展开
专栏收录文章
- 默认排序
- 最新发布
- 最早发布
- 最多阅读
- 最少阅读
-
Delphi 无边框WebBrowser右键属性程序挂起问题解决
Form启动时候，从新设置窗体的Style： procedure TForm1.onFormCreate(Sender: TObject);var nbStyleFix:Integer; {修复无边框窗体WebBrowser右键/属性程序挂起}begin nbStyleFix := GetwindowLong(Form1.Handle, GWL_STYLE); nbStyl...原创 2011-01-25 14:56:37 · 158 阅读 · 0 评论 -
Delphi 无边框全屏不遮挡任务栏
{声明 拦截最大化，最小化命令，从新设置屏幕高度} procedure WMGetMinMaxInfo(var mes: TWMGetMinMaxInfo);message WM_GetMinMaxInfo; {截获系统消息，然后改写窗体最大化高度。Screen.WorkAreaHeight就是屏幕高度减去任务栏的高度}procedure TForm1.WMG...原创 2011-01-25 15:01:19 · 282 阅读 · 0 评论