Formular Größe

[dunningkruger]

Tipp mal in die dpr-Datei zusätzlich

uses windows

rein und nach dem letzten

Application.CreateForm(TForm..., Form....); zusätzlich

CmdShow := sw_ShowMaximized; <= oder Deinen Wunsch

rein.

HTH oder sollte Dich in die richtige Richtung ausrichten, hoffe ich

[MrSpock]

Ich werde das Morgen mal testen. Habe den Rechner schon runtergefahren.

Ich muss vielleicht noch erklären, dass zunächst nur das Datenmodul in den Projekteinstellungen erzeugt wird. In der dpr Datei wird dann ein Fenster angezeigt, über das aus einer externen Quelle Daten eingelesen werden können. Dieses Fenster wird in einer festen Größe angezeigt. Dann wird ein Info Fenster angezeigt, solange bis ich alle Initialisierungen abgeschlossen habe. Erst dann wird das eigentliche Hauptfenster der Anendung angezeigt, aber eben nicht maximiert.

[MrSpock]

Zitat von dunningkruger:

Tipp mal in die dpr-Datei zusätzlich

uses windows

rein und nach dem letzten

Application.CreateForm(TForm..., Form....); zusätzlich

CmdShow := sw_ShowMaximized; <= oder Deinen Wunsch

rein.

HTH oder sollte Dich in die richtige Richtung ausrichten, hoffe ich

Hab ich eingefügt, hat aber keinen Einfluss.

Zitat von stahli:

Am einfachsten wird sein, beim ersten OnActivate zu maximieren und das in einem Flag zu vermerken.

Leider funktioniert das auch nicht. Bisher funkioniert nur die von mir oben beschriebene (Krampf)Lösung mit dem Setzen von Width und Height in der OnCreate.

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