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

dcren118 2011-12-31 11:15:21

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

...全文

80 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; —————————...

问题现象：在使用SendMessageTimeout函数后，5秒后WIN把进程挂在起。这时把程序最小化（原因就是不想让用户看到卡的界面），但点击任务栏按钮界面还原了，拦截消息失败（原因是挂起后消息都放在队排中了），怎么才能不接收还原呢？处理方法：最小化前把界面的Application.MainForm.BorderStyle:= bsNone;设置一下就可以了。转载于:https://www.c...

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

今天修改程序BUG的时候，发现登录窗口点击登录后，主操作窗口任务栏图标竟然消失了，换到虚拟机里面的DELPHI7测试同样代码正常，对比后发现 program Project1; uses Vcl.Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$R *.res}

1,488

社区成员

23,276

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章