Código
Espero que seja proveitosa.}
Private
Procedure AjustaForm;
procedure TCadClientes.AjustaForm;
Const nTamOriginal = 800; // 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 CadClientes 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;
procedure TCadClientes.FormShow(Sender: TObject);
begin
AjustaForm;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009