Preciso abrir um formulário em outro Monitor

[Lucas Ferreira]

Criei essa procedure, ela esta funcionando em partes, quando vou atribuir o Left a ela do meu segundo monitor o

Valor Monitor.Left vem (1366) mas o Formulario.Left recebe somente 150, não sei oq pode ser

procedure TForm1.SelecionaMonitor(Index: Integer; Formulario: TForm);
var
  MonitorIndex: Integer;
  Monitor: TMonitor;
begin
  MonitorIndex := Index;
  if (MonitorIndex >= 0) and (MonitorIndex < Screen.MonitorCount) then
  begin
    Monitor := Screen.Monitors[MonitorIndex];
    with Formulario do
    begin
      Width   := Monitor.Width;
      Height  := Monitor.Height;
      Left    := Monitor.Left;
      Top     := Monitor.Top;
    end;
  end;
end;

[backupnumberum]

tente deste jeito:

1. primeiro torne o formulario visivel
2. defina a nova posicao na tela
3. BoundsRect = L, T, R, B valores

 

FormX.Visible := true;

FormX.BoundsRect := Screen.Monitors[ i ].BoundsRect;

Editado Novembro 13, 2023 por backupnumberum