Formular Größe

[MrSpock]

Hallo,

ich habe ein Hauptformular, dass ich gerne maximiert dargestellt haben möchte. Dazu habe ich WindowState auf wsMaximized gestellt. Das Formular wird dann auch maximiert dargestellt, aber nachdem die Inhalte aufgebaut werden, wird es wieder auf die "Designgröße" verkleinert. Die Eigenschaften Width oder Height des Formulars werden im ganzen Quellcode ansonsten nicht gesetzt. Klickt man auf das maximieren Symbol oben rechts, wird es maximiert dargestellt. Woran kann das liegen?

[stahli]

Starte mal direkt mit F7, vielleicht hast Du doch noch irgendwo eine übersehene Anweisung?

[MrSpock]

Ich habe über Suchen in allen Dateien des Projektes nach Width und Height gesucht und sogar diese Stellen im Programm auskommentiert, obwohl es hier um die Größe von anderen Steuerelementen geht. Wenn ich bei FormCreate die beiden Zeilen:

Delphi-Quellcode:

width := Screen.Width;
height := Screen.Height -30 ;

einfüge, funktioniert es.
Gebe ich z.B.:

Delphi-Quellcode:

width := Screen.Width;
height := Screen.Height -100 ;

ein, wird das Formular auch nicht mit voller Breite dargestellt, da fehlen ungefähr 10 Pixel.

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

[Furtbichler]

Zitat von MrSpock:

ich habe ein Hauptformular, dass ich gerne maximiert dargestellt haben möchte....

Genau das gleiche Problem habe ich auch hin und wieder. Eine elegante Lösung habe ich nicht.

[stahli]

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

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