Anbei findet Ihr einen Code, welcher ein beliebiges Form auf die Bildschirmauflösung anpasst und sogar die Elemente und deren Inhalte scaliert. So wird auch die Schrift größer und passt sich an die Formgröße an.
Delphi-Quellcode:
procedure TForm1.MaximizeAndScale;
var
sWidth: Double;
sHeight: Double;
begin
sWidth := Screen.MonitorFromWindow(
Handle).Width / Width;
sHeight := Screen.MonitorFromWindow(
Handle).Height / Height;
if sWidth < sHeight
then
begin
ScaleBy(Round(Screen.MonitorFromWindow(
Handle).Width * 1.02), Width);
end
else
begin
ScaleBy(Round(Screen.MonitorFromWindow(
Handle).Height * 1.02), Height);
end;
WindowState := wsMaximized;
end;
Schlagworte: Scale ScaleBy ScaleControls Auflösung Elemente Controls anpassen vergrößern
...

...