Delphi - 在第二台显示器上打开表单

Question

我需要有关此解决方案的帮助。 有几种形式的申请。需要在选定的监视器上打开其中一个表单。例如： 解决方案 1. 如果使用了多个监视器，则 OnCreate 表单检查，并在最后一个上打开。我尝试了这段代码，但没有运气：

  Application.CreateForm(TfrmDashboard, frmDashboard);
  for I := 0 to Screen.MonitorCount -1 do
  begin
    // Checking Screen Position
    ShowMessageFmt('%d, %d, %d, %d',
              [Screen.Monitors[i].BoundsRect.Left,
              Screen.Monitors[i].BoundsRect.Top,
              Screen.Monitors[i].BoundsRect.Right,
              Screen.Monitors[i].BoundsRect.Bottom]);
  end;

  if Screen.MonitorCount > 1 then
  begin
      frmDashboard.Top:= Screen.Monitors[i].BoundsRect.Top;
      frmDashboard.Top:= Screen.Monitors[i].BoundsRect.Left;
  end;

解决方案 2. 将窗体拖动到选定的监视器，并将 OnDestroy 事件的顶部和左侧位置写入 INI 文件。下次表格在同一显示器和同一位置打开。我尝试了这段代码，但也没有运气：

procedure TfrmDashboard.FormCreate(Sender: TObject);
var
    ini: TIniFile;
begin
    ini:= TIniFile.Create(extractfilepath(paramstr(0))+'Dashboard.ini');
    Left:= StrToInt(ini.ReadString('Left', 'Form_Left', '0'));
    Top:= StrToInt(ini.ReadString('Top', 'Form_Top', '0'));
    ini.Free;
end;

procedure TfrmDashboard.FormDestroy(Sender: TObject);
var
    ini: TIniFile;
begin
    ini:= TIniFile.Create(extractfilepath(paramstr(0))+'Dashboard.ini');
    ini.WriteString('Left', 'Form_Left', IntToStr(Left));
    ini.WriteString('Top', 'Form_Top', IntToStr(Top));
    ini.Free;
end;

Answer 1

frmDashboard.Top:= ...
frmDashboard.Top:= ...

这似乎是一个简单的复制粘贴错误。您两次都设置了Top。大概你的意思是：

frmDashboard.Top:= ...
frmDashboard.Left:= ...

---

这段代码犯了同样的错误：

if Screen.MonitorCount > 1 then
begin
  frmDashboard.Top:= Screen.Monitors[i].BoundsRect.Top;
  frmDashboard.Top:= Screen.Monitors[i].BoundsRect.Left;
end;

此外，当它定义不明确时，它指的是i。编译器会对此发出警告。我希望您启用了编译器警告和提示，并注意它们。

---

如果 INI 文件包含无效数据，您的 OnCreate 事件处理程序将引发异常。例如，如果用户将位置值编辑为非数字，则StrToInt 将引发异常。您的程序应该对此具有弹性。

OnCreate 和 OnDestroy 事件处理程序都不能正确管理 INI 文件对象的生命周期。如果 INI 文件访问失败，或者对 StrToInt 的调用失败（见上文），那么您将泄漏对象。这是要遵循的模式：

obj := TMyObject.Create;
try
  // do things with obj
finally
  obj.Free;
end;