Buscar por:

Ajustar automaticamente o form para o resolução da tela

Código

Boa dica pra quem costuma programar em resoluções altas (1024 x 768) e instala os

programas em máquinas com resolução mais baixa.

procedure AjustaForm;

//

// Ajusta a visualização de um formulário de maneira 

// correta independente da resolução do monitor o qual

// roda nossa aplicação.

//

// deve ser colocada na unit do form que se deseja fazer o ajuste

//

// Declare-a na clausula private da unit:

// Private

procedure AjustaForm;

//

// depois inicialize-a na unit assim:

//

procedure TForm1.AjustaForm;

Const

nTamOriginal = 1024; // Será o 100% da escala

Var

nEscala : Double; // Vai me dar o percentual de Transformação escalar

nPorcento : Integer; // Vai me dar em percentual inteiro o valor

begin

With Formulario do

begin

if nTamOriginal <> Screen.Width then

begin

nEscala := ((Screen.Width-nTamOriginal)/nTamOriginal);

nPorcento := Round((nEscala*100) + 100);

Self.Width := Round(Self.Width * (nEscala+1));

Self.Height := Round(Self.Height * (nEscala+1));

Self.ScaleBy(nPorcento,100);

end;

end;

end;