Mover nao aparece no menu de contexto

#1

Contexto
Contexto.png332×623 5.1 KB

NewFrameName = “hpFrame_” & Replace(ScreenName, “.”, “_”)
Dim frame
Set frame = Application.GetFrame(NewFrameName)

frame.OpenScreen ScreenName, Arg

On Error Resume Next
If Not frame.Viewer Is Nothing Then
frame.Viewer.AllowPanning = True
frame.Viewer.ZoomEnabled = True
End If
On Error GoTo 0

Estou usando esse código para abrir um novo quadro a cada tela, porque preciso alimentar vários monitores arrastando as janelas, mas a opção de mover, mesmo quando dou zoom, fica desabilitada. Alguém já teve esse problema ou tem uma maneira de abrir varias janelas sem limite?

#2

Bom dia.

Percebi o prefixo “hp” no seu código. Está usando HighPerformance? Se sim, leia o manual do HighPerformance que você está usando para saber como criar configurações para vários monitores. Na pasta do HighPerformance tem um diretório com os manuais em PDF.

Na versão 2.5 do HighPerformance você pode criar vários “Profiles” (várias configurações de disposição de monitores) e vincular nomes dos computadores aos Profiles. Ou seja, conforme o nome do computador configurado, o Viewer já carrega o Profile de 1 monitor, 2 monitores, e outros que você configurou.

#3

acabei criando outros quadros e abrindo eles com a tela dentro…