去borderstyle=0时候任务栏鼠标左右键不起作用的问题！

dcren118 2011-12-31 11:15:21

在VB6.0里面想做一个个性化的窗体，但是我设置 borderstyle=0 用背景图做完以后在任务栏里面鼠标左右键都失效了，请问这个问题怎么解决，在网上搜索了一下资料应该是用API来解决但是本人太菜请高手指点谢谢！

...全文

103 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

dcren118 2011-12-31

打赏
举报

回复

没有就是把 borderstyle=0

贝隆 2011-12-31

打赏
举报

回复

你是不是把窗体的Enabled属性设置为：False了？

贝隆 2011-12-31

打赏
举报

回复

无代码，无真相

实现无边框窗体很简单，直接将窗体的BorderStyle属性设置为bsNone即可。但是这样会引起2个问题： 1、在xp系统下，任务栏鼠标右键点击无法弹出菜单解决办法：在FormShow中加入这个过程即可 procedure TForm2.InitSysMenu; var WindowStyle: Integer; begin WindowStyle := GetWindowLong(Handle, -16); WindowStyle := WindowStyle or..

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; PostMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0); end; —————————...

{声明拦截最大化，最小化命令，从新设置屏幕高度} procedure WMGetMinMaxInfo(var mes: TWMGetMinMaxInfo);message WM_GetMinMaxInfo; {截获系统消息，然后改写窗体最大化高度。Screen.WorkAreaHeight就是屏幕高度减去任务栏的高度} procedure TForm1

vb6无边框窗体的使用，1.任务栏不再出现程序图标 2.窗体无法拖行移动 3.窗体无法拖动缩放。三个问题的解决方案

最近在仿百度网页来练习css和js,遇到一个问题，如何让鼠标移到标题后弹出二级导航栏，这很容易实现，就是通过类似下文的代码： let moreBtn=document.getElementById("more"); let haBtn=document.getElementById("ha"); moreBtn.onmouseover=function(){ haBtn.style.display="block"; } moreBtn.onmouseout=function(){

1,488

社区成员

23,270

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章