窗体锁定在屏幕内不可超出桌面屏幕边缘

窗口位置限制代码

最新推荐文章于 2025-09-10 09:58:49 发布

原创最新推荐文章于 2025-09-10 09:58:49 发布 · 1.5k 阅读

1 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

33 篇文章

订阅专栏

本文提供了一段Delphi代码，用于限制窗口的位置，确保其不会超出屏幕工作区域的高度和宽度。当窗口试图移动到屏幕工作区域之外时，该代码会自动调整窗口的位置。

procedure WMWindowPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;
procedure TFmBack.WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
  inherited;
  if (Message.WindowPos.y + Message.WindowPos.cy  > Screen.WorkAreaHeight) then begin
    Message.WindowPos.Y := Screen.WorkAreaHeight - Height ;
  end;
  if (Message.WindowPos.x + Message.WindowPos.cx > Screen.WorkAreaWidth) then begin
    Message.WindowPos.X := Screen.WorkAreaWidth - Width ;
  end;

  if Message.WindowPos.x < 0 then
    Message.WindowPos.x := 0;

  if Message.WindowPos.y < 0 then
    Message.WindowPos.y := 0;
end;