Delphi窗体创建位置优化：实现窗体在上次关闭位置启动

一、窗体默认位置的核心逻辑 #

Delphi 窗体的默认位置由**Position属性**决定，常见取值及对应行为：

• poDesigned：默认值，直接使用DFM文件中保存的Left/Top坐标，这也是你遇到“位置超出视口”的核心原因——如果DFM里的坐标是旧显示器环境下的参数，切换到新显示器/多显示器场景就会出现窗体不可见的问题。
• poScreenCenter：窗体在主显示器屏幕居中显示。
• poMainFormCenter：窗体相对于主窗体居中显示。
• poDefault：由Windows系统自动分配位置（通常是前一个打开窗体的偏移位置）。

你提供的两段代码均为强制固定位置的方案，优缺点如下：

1. 直接固定左上角：

   procedure TForm1.FormCreate(Sender: TObject);
   begin
     // 强制窗体在屏幕左上角
     Left := 0;
     Top := 0;
   end;
   

   缺点：完全忽略任务栏和多显示器布局，窗体可能被任务栏遮挡，且无法满足“记住上次位置”的需求。

2. 对齐主显示器工作区左上角：

   procedure TForm1.FormCreate(Sender: TObject);
   begin
     // 对齐主显示器工作区左上角（避开任务栏）
     Left := Screen.Monitors[0].WorkareaRect.Left;
     Top := Screen.Monitors[0].WorkareaRect.Top;
   end;
   

   优点：考虑了任务栏的存在，但依然是固定位置，无法实现记忆上次关闭位置的功能。

二、实现“记住上次关闭位置”的最佳方案 #

要实现窗体重启后回到上次关闭的位置，需要完成保存位置状态+加载时校验合理性两个核心步骤，以下是基于INI文件的完整可落地实现：

1. 核心思路 #

• 关闭窗体时：保存当前的Left/Top/Width/Height，以及WindowState（区分正常/最大化/最小化状态）。
• 启动窗体时：读取保存的信息，若位置超出当前显示器工作区，则自动调整到可见区域。

2. 完整代码示例 #

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure LoadFormPosition;
    procedure SaveFormPosition;
    function IsPositionValid(const ARect: TRect): Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  IniFiles, Forms, SysUtils;

const
  INI_FILE_NAME = 'FormPosition.ini';

procedure TForm1.FormCreate(Sender: TObject);
begin
  LoadFormPosition;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SaveFormPosition;
end;

procedure TForm1.LoadFormPosition;
var
  Ini: TIniFile;
  WinState: TWindowState;
  FormRect: TRect;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + INI_FILE_NAME);
  try
    // 读取窗口状态
    WinState := TWindowState(Ini.ReadInteger('Form', 'WindowState', Integer(wsNormal)));
    // 读取位置和尺寸
    FormRect.Left := Ini.ReadInteger('Form', 'Left', Left);
    FormRect.Top := Ini.ReadInteger('Form', 'Top', Top);
    FormRect.Right := Ini.ReadInteger('Form', 'Right', Right);
    FormRect.Bottom := Ini.ReadInteger('Form', 'Bottom', Bottom);

    // 校验位置是否在可见区域，无效则自动居中
    if not IsPositionValid(FormRect) then
    begin
      Position := poScreenCenter;
      WinState := wsNormal;
    end
    else
    begin
      SetBounds(FormRect.Left, FormRect.Top, FormRect.Width, FormRect.Height);
    end;

    WindowState := WinState;
  finally
    Ini.Free;
  end;
end;

procedure TForm1.SaveFormPosition;
var
  Ini: TIniFile;
  FormRect: TRect;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + INI_FILE_NAME);
  try
    // 最大化状态下先临时恢复正常，再保存真实位置
    if WindowState = wsMaximized then
    begin
      WindowState := wsNormal;
      FormRect := BoundsRect;
      WindowState := wsMaximized;
    end
    else
    begin
      FormRect := BoundsRect;
    end;

    Ini.WriteInteger('Form', 'WindowState', Integer(WindowState));
    Ini.WriteInteger('Form', 'Left', FormRect.Left);
    Ini.WriteInteger('Form', 'Top', FormRect.Top);
    Ini.WriteInteger('Form', 'Right', FormRect.Right);
    Ini.WriteInteger('Form', 'Bottom', FormRect.Bottom);
  finally
    Ini.Free;
  end;
end;

function TForm1.IsPositionValid(const ARect: TRect): Boolean;
var
  I: Integer;
  MonitorRect: TRect;
  IntersectRect: TRect;
begin
  Result := False;
  // 检查窗体是否与任意显示器的工作区有交集
  for I := 0 to Screen.MonitorCount - 1 do
  begin
    MonitorRect := Screen.Monitors[I].WorkareaRect;
    if Windows.IntersectRect(IntersectRect, ARect, MonitorRect) then
    begin
      Exit(True);
    end;
  end;
end;

3. 关键细节说明 #

• 处理最大化状态：保存位置前临时恢复正常状态，避免下次启动时加载到最大化时的异常坐标。
• 位置有效性校验：确保窗体不会出现在所有显示器的可见区域之外，避免再次出现“找不到窗体”的问题。
• 存储方式：示例使用应用程序目录下的INI文件，也可替换为注册表（如HKEY_CURRENT_USER\Software\你的应用名称）。

内容的提问来源于stack exchange，提问作者Franz