Problem mit Fenster wegen Bildschirmauflösung & Schriftgröße

[Tommy111]

Hallo kiar,

Zitat:

Delphi-Quellcode:

const 
   screenwidthdev   = 1250; // Einstellungen auf dem Entwicklungsrechner 
   screenheightdev  =  960; // dito 
var 
   x,y:integer; 
begin 
scaled := true; 
   x:= Screen.width; 
   y:= Screen.Height; 
   if(y <> ScreenHeightDev) or (x <> ScreenwidthDev) then 
     begin 
        frmMain.Height := (frmMain.ClientHeight* y div ScreenHeightDev) + 
                                frmMain.Height- frmMain.ClientHeight; 
        frmMain.Width  := (frmMain.ClientWidth * x div ScreenWidthDev)  + 
                                frmMain.Height - frmMain.ClientHeight; 
        scaleBy(x,Screenwidthdev); 
     end; 
   // Achtung frmMain muss durch dein Formular ausgetauscht werden

hat funktioniert! Danke!