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.