delphi 无边框窗体常见问题

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

一、在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;

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

解决办法：在FormResize中加入如下代码便可

Self.Constraints.MaxHeight := Screen.WorkAreaHeight;

----转自互联网