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;

----转自互联网

推荐分享