Dica: Adaptando Form para diferentes resoluções

Há uns 2 anos, eu precisei implantar um formulário que deveria manter a aparência em diferentes resoluções. Após testar alguns códigos, cheguei a um que resolveu o meu problema:

[sourcecode language=”delphi”]
procedure ScaleForm(AForm: TForm);
var
i, x, y, w, sw: integer;
nEscala: Double;
nPorcento: Integer;
begin
sw := 1280; // a resolucao original, que eu utilizo em meu monitor
w := AForm.width;
AForm.Scaled := true;
if (Screen.width <> sw) then
begin
nEscala := ((Screen.Width – sw) / sw);
nPorcento := Round((nEscala * 100) + 100);

AForm.Scaleby(screen.width, sw);

for y := 0 to AForm.ComponentCount -1 do
begin
if (AForm.Components[y] is TDBGrid) and
(TDBGrid(AForm.Components[y]).Columns.Count > 0) then
begin
for x := 0 to TDBGrid(AForm.Components[y]).Columns.Count -1 do
TDBGrid(AForm.Components[y]).Columns[x].Width :=
Round(TDBGrid(AForm.Components[y]).Columns[x].Width * (nPorcento /
100));
end;
end;
end;
end;
[/sourcecode]

Chamo a função no create do form. Com isso, posso utilizar diferentes resoluções (800×600, 1024×768, etc.) e o form mantém sua aparência.

Abraços.