Delphi
WitsonX
这个作者很懒,什么都没留下…
展开
-
Delphi中添加WebBrowser扩展接口
1、添加 Automation Object2、填写CoClass Name,选择Apartment、Internal3、添加扩展方法,如 doAction方法4、添加WebBrowser方法procedure TfMain2.WBGetExternal(Sender:TCustomEmbeddedWB; var ppDispatch: IDispatch);var WB原创 2016-09-05 13:40:54 · 899 阅读 · 0 评论 -
Delphi窗口无边框时显示窗口阴影
Delphi窗口无边框时显示窗口阴影procedure CreateParams(var Params:TCreateParams);override;//........procedure TfMain.CreateParams(var Params: TCreateParams);// uncomment this if CS_DROPSHADOW is not already de原创 2016-09-05 13:50:04 · 2959 阅读 · 1 评论 -
Delphi 无边框全屏不遮挡任务栏
Delphi 无边框全屏不遮挡任务栏{声明 拦截最大化,最小化命令,从新设置屏幕高度}procedure WMGetMinMaxInfo(var mes: TWMGetMinMaxInfo);message WM_GetMinMaxInfo;//......{截获系统消息,然后改写窗体最大化高度。Screen.WorkAreaHeight就是屏幕高度减去任务栏的高度}原创 2016-09-05 13:52:41 · 1160 阅读 · 0 评论