Jump to content

Preciso abrir um formulário em outro Monitor


Lucas Ferreira

Postagens Recomendadas

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;

Link to comment
Compartilhe em outros sites

Crie uma conta ou entre para comentar 😀

Você precisa ser um membro para deixar um comentário.

Crie a sua conta

Participe da nossa comunidade, crie sua conta.
É bem rápido!

Criar minha conta agora

Entrar

Você já tem uma conta?
Faça o login agora.

Entrar agora


×
×
  • Create New...