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;

----轉自互聯網