Bei mir sind alle Form's auf Scaled True.
Aber im Labelfeld und dahinter zwei Leertasten geht jetzt auf anderen Rechnern.
Hab aber noch einen Code für jede Form,zwecks der Anpassung im OnCreate.
Delphi-Quellcode:
procedure TForm3.FormCreate(Sender: TObject);
const
screenwidthdev = 1440; // Einstellungen auf dem Entwicklungsrechner
screenheightdev = 900; // Einstellung auf dem Entwicklungsrechner
var
x,y:integer;
begin
scaled := true;
x:= Screen.width;
y:= Screen.Height;
if(y <> ScreenHeightDev) or (x <> ScreenwidthDev) then
begin
Form3.Height := (Form3.ClientHeight* y div ScreenHeightDev) +
Form3.Height- Form3.ClientHeight;
Form3.Width := (Form3.ClientWidth * x div ScreenWidthDev) +
Form3.Height - Form3.ClientHeight;
scaleBy(x,Screenwidthdev);
end;
end;
end.