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 取得和设置当前系统的短日期格式

Delphi fdmemtable1内存表字段排序

Delphi代码直接注入别的进程

Delphi 创建多级目录

Delphi 操作前，删除前，覆盖前，询问对话框

Delphi 之前解析串口数据

如何在Delphi中禁用关于“返回值...可能未定义”的警告？

Delphi datetimetogmt gmt时间与tdatetime转换

Delphi 服务器群集解决方案

Delphi dbgrid中实现copy、paste功能

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

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