Problem mit Location + DesktopLocation

[gfjs]

Hallo, Allerseits.

Mein Formular macht nicht, was ich will! Es soll den gesamten Bildschirm oberhalb der Taskleiste ausfüllen.

Mein Quelltext:

Delphi-Quellcode:

procedure TWinForm.InitializeComponent;
begin
  //
  // TWinForm
  //
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 15);
  Self.ClientSize := System.Drawing.Size.Create(936, 608);
  Self.Name := 'TWinForm';
  Self.Text := 'WinForm';
  Self.Width := System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width;
  Self.Height := System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height-36;
  Self.DesktopLocation := System.Drawing.Point.Create(0,0);
end;

Width und Height funktionieren, DesktopLocation bzw. Location leider nicht. Das Fenster sitzt nicht ganz oben, sondern unterhalb der Kopfleiste. Auch wenn ich z.B. Point.Create(100,100) eingebe, bewegt es sich nicht von der Stelle. Woran könnte es liegen?

mfg gfjs

Habe gerade folgendes festgestellt:

Wenn ich StartPosition auf "Manual" setze, ist das Fenster zwar wie gewünscht ganz links oben bei (0,0) aber beim Start mit F9 werden meine Quelltextzeilen

Self.Width := System.Windows.Forms.Screen.PrimaryScreen.Bounds.W idth;
Self.Height := System.Windows.Forms.Screen.PrimaryScreen.Bounds.H eight-36;
Self.DesktopLocation := System.Drawing.Point.Create(0,0);

gelöscht und das Fenster hat die Größe, auf die ich es in der IDE gezogen habe.

[gfjs]

Nach langem Suchen bin ich jetzt selber draufgekommen:

Das Verschwinden meines Quellcodes hängt wohl damit zusammen, dass ich das Ganze nicht in TWinForm.Create sondern in TWinForm.InitializeComponent geschrieben hatte.

Und: Um das Formular wie gewünscht positionieren zu können muss StartPosition auf "Manual" gesetzt werden:

Delphi-Quellcode:

self.StartPosition := FormStartPosition.Manual;
self.Location := System.Drawing.Point.Create(0,0);

Vielleicht hlft's ja jemand?!

mfg gfjs