Bildschirmauflösung ?

[kiar]

ich kann immer nur auf diese funktion verweisen

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);

const
   screenwidthdev  = 1024; // Einstellungen auf dem Entwicklungsrechner
   screenheightdev =  768; // 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
end;

muetze1 meinte das scaled:=true das gleiche macht. ich konnte das aber noch nicht erreichen

raik