Formular Größe

[blondervolker]

Hallo,
vielleicht hilft dir dass weiter(nehme ich immer):

Delphi-Quellcode:

const
   screenwidthdev = 1280; // Einstellungen auf dem Entwicklungsrechner
   screenheightdev = 720; // Einstellungen auf dem Entwicklungsrechner
   var
   x,y:integer;
begin
scaled := true;
x:= Screen.width;
y:= Screen.Height;
if(y <> ScreenHeightDev) or (x <> ScreenwidthDev) then
begin
Form1.Height := (Form1.ClientHeight* y div ScreenHeightDev) +
Form1.Height- Form1.ClientHeight;
Form1.Width := (Form1.ClientWidth * x div ScreenWidthDev) +
Form1.Height - Form1.ClientHeight;
scaleBy(x,Screenwidthdev);
AbsTable1.Active:=True;
end;
end;

[Christian Seehase]

Moin Spockie,

ich löse das immer über ein

SendMessage(self.Handle,WM_SYSCOMMAND,SC_MAXIMIZE,0); im OnShow des Formulares.

[MrSpock]

OK, danke, das werde ich heute Abend nochmal versuchen.