Jump to content

Lucas Ferreira

Membros
  • Contagem de Conteúdo

    8
  • Ingressou

  • Última visita

Clientes & Parceiros

  • Você é um cliente TecnoSpeed?
    Não
  • Você é um parceiro da Casa do Desenvolvedor?
    Não

Conquistas de Lucas Ferreira

0

Reputação na Comunidade

  1. 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;
  2. O erro não ocorre quando estou debugando pelo Delphi, utilizo uma VM com Windows 7 no delphi. quando tento utilizar ele pelo executavel no windows 10 ele da acess violation, ele nem entra no evento de OnCreate que criei para ele Obs: Estou criando outros formulários e não ocorre nenhum erro com os mesmos, somente nesse específico, ele nem cai nesse exception que criei...
×
×
  • Create New...