Масштабирование формы относительно разрешения экрана

procedure AdjustResolution(oForm:TForm);
var
iPercentage:integer;
begin
if Screen.Width > 1440 then
begin
iPercentage:=Round(((Screen.Width-1440)/1440)*100)+100;
oForm.ScaleBy(iPercentage,100);
end;
end;

Добавить комментарий