delphi 无边框窗体常见问题

本文整理自网络，侵删。

 
实现无边框窗体很简单，直接将窗体的BorderStyle属性设置为bsNone即可。但是这样会引起2个问题：

1、在xp系统下，任务栏鼠标右键点击无法弹出菜单

解决办法：在FormShow中加入这个过程即可

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

2、窗口最大化的时候，会把任务栏也遮盖住

解决办法：在FormResize中加入以下代码即可

Self.Constraints.MaxHeight := Screen.WorkAreaHeight;

----转自互联网
 

相关阅读 >>

Delphi mscomnn1 判断com口是否打开

Delphi twebbrowser控件禁用鼠标右键

Delphi xe6 android视频采集

Delphi dxcameracontrol控件(拍照)

Delphi实现网卡状态检测

Delphi unicode 转 gbk

Delphi 得到执行程序的当前所在完整路径

Delphi access数据库密码的mdb的访问报错“无法启动应用程序，或是已被其他用户已独占方式打开”

Delphi 检验指定字符串网址是否输入正确

Delphi 全局的鼠标钩子 使用钩子函数数据传递

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 无边框窗体常见问题