Forum > Portuguese
Problema com tamanho das telas no Mobile
felipemdc:
--- Quote from: nightrider on October 16, 2011, 03:41:14 pm ---Será que dá pra incluir o MoveWindow na RemoveTaskBar? Se nao, poderias passar um modelo de chamada em um metodo que eu pudesse incluir no projeto e usar direto + instrucoes necessarias
--- End quote ---
O MoveWindow já esta nessa rotina como você pode ver. Eu acho que uma solução seria usar um fator para o MoveWindow para essas janelas com problemas:
Você pode testar varios valores diferentes, leia a documentação da API MoveWindow que eu já passei antes.
uses Windows;
procedure IncreaseWindow(Form : TForm);
var
rc: TRect;
begin
GetWindowRect(Form.Handle, @rc);
MoveWindow(Form.Handle,rc.left,rc.top,rc.right,rc.bottom+30,TRUE);
end;
nightrider:
Olá!
Problema resolvido(salvo novos acidentes de percurso). Foi só colocar a chamada ao método IncreaseWindow proposto na procedure FormActivate e tudo parece estar funcionando a contento...
Ah! Após chamar ShowMessage, tambem tem que chamar este método proposto pelo Felipe. No meu caso voltava a aparecer a faixa branca no final da tela.
Grato Felipe
[ ]
Navigation
[0] Message Index
[*] Previous page