如何将表格位置设为屏幕的右上角？

Question

我需要在桌面的右上角显示我的表单。请建议我的方式。

我尝试了很多方法，但失败了。

Answer 1

这里主要的复杂因素是多个监视器。使用多台显示器，桌面上可能没有任何一点是顶部和右侧。在这种情况下，我认为你可能意味着最右边的监视器的顶部。

这样做：

procedure MoveFormToTopOfRightmostMonitor(Form: TForm);
var
  i: Integer;
  Monitor, RightMostMonitor: TMonitor;
begin
  RightMostMonitor := Screen.Monitors[0];
  for i := 1 to Screen.MonitorCount-1 do
  begin
    Monitor := Screen.Monitors[i];
    if Monitor.Left+Monitor.Width > RightMostMonitor.Left+RightMostMonitor.Width then
      Monitor := RightMostMonitor;
  end;
  Form.Left := Monitor.Left+Monitor.Width-Form.Left;
  Form.Top := Monitor.Top;
end;

Answer 2

试试这个

procedure TmainForm.FormCreate(Sender: TObject);
begin
 mainForm.left:= screen.Monitors[Screen.MonitorCount-1].Width-mainForm.Width;
end;