Resolu��o de Tela alguem sabe como ?

Question

E ai Galera Blz Bom me deparei com um pequeno Problema que n�o fa�o ideia de como  resolver fiz meu sistema com resolu��o de video de 1024 - 768 mas quando coloquei em uma maquina que tinha a resolu��...

Night_man · Answer

existe uma class chamada TScreen, ela tem informacoes da tala tipo resolucao e tal.

voce poderia fazer

if (Screen.Width <> 800) and (Screen.Height <> 600) then
  ShowMessage(�Erro�)

outra coisa q poderia ser feita para ajustar a tela de acordo com a resolucao e utilizar os Align e Anchors dos componentes

Alinhado e ancorado em algum lado

J�der Medeiros · Answer

Quem tiver o interesse de auto-ajustar algum formul�rio que na resolu��o 800x600 ficou totalmente ileg�vel, coloque o seguinte c�digo no OnCreate dele:

Com este c�digo, todos os componentes s�o re-escalados para tal propor��o de resolu��o utilizando toda a �rea dispon�vel do Desktop.

const
    HeightTaskBar = 32;
begin
    if (Top+Height > Screen.DesktopHeight-HeightTaskBar) and (Height > Screen.DesktopHeight-HeightTaskBar) then begin
        Top := 0;
        ChangeScale(Screen.DesktopHeight-HeightTaskBar,Height);
        Height := Screen.DesktopHeight-HeightTaskBar+2
    end;
    if (Left+Width > Screen.DesktopWidth) and (Width > Screen.DesktopWidth) then begin
        Left := 0;
        ChangeScale(Screen.DesktopWidth,Width);
        Width := Screen.DesktopWidth+2
    end
end;

PS: Para Delphi 7, a constante HeightTaskBar se faz desnecess�ria pois a classe TScreen ganhou as propriedades WorkAreaHeight e WorkAreaWidth que substituem respectivamente Screen.DesktopHeight-HeightTaskBar e Screen.DesktopWidth.

F�rum Resolu��o de Tela alguem sabe como ? #327588