Что сделать, что бы ваша программа корректно масштабировалась при любом разрешении экрана.
Необходимо добавить для всех окон в событие OnСreate Form. Вместо 640 используйте разрешение при разработке приложения
procedure
AdjustResolution(oForm:TForm);
var
iPercentage:integer;
begin
if Screen.Width > 640 then
begin
iPercentage:=Round(((Screen.Width-640)/640)*100)+100;
oForm.ScaleBy(iPercentage,100);
end;
end;
| 