Hallo,
vielleicht hilft dir dass weiter(nehme ich immer):
Delphi-Quellcode:
const
screenwidthdev = 1280; // Einstellungen auf dem Entwicklungsrechner
screenheightdev = 720; // Einstellungen auf dem Entwicklungsrechner
var
x,y:integer;
begin
scaled := true;
x:= Screen.width;
y:= Screen.Height;
if(y <> ScreenHeightDev) or (x <> ScreenwidthDev) then
begin
Form1.Height := (Form1.ClientHeight* y div ScreenHeightDev) +
Form1.Height- Form1.ClientHeight;
Form1.Width := (Form1.ClientWidth * x div ScreenWidthDev) +
Form1.Height - Form1.ClientHeight;
scaleBy(x,Screenwidthdev);
AbsTable1.Active:=True;
end;
end;