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

[kiar]

hallo ,

folgender Code sollte das realisieren:

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

wenn mehrere Formulare angepasst werden sollen, müssen alle Formulare in ihrem OnCreate diese procedure
aufrufen.

raik