Form und Elemente an Bildschirmauflösung anpassen

[sakura]

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
......