Vollbildmodus - ein- und ausschalten
Mokuba01 stellt hier vor, wie man einfach zwischen Vollbild und Fenstermodus "umschalten" kann. Danke auch an jbg und taaktaak für ihre Ergänzungen.
Delphi-Quellcode:
procedure TForm1.Vollbild;
begin oldW := Width; oldH := Height; oldX := Left; oldY := Top; BorderStyle := bsNone; FormStyle := fsStayOnTop; BoundsRect := Monitor.BoundsRect; // Möchte man die Taskleiste noch sichtbar halten, so ist statt der letzten Zeile folgendes zu verwenden // BoundsRect := Monitor.WorkareaRect; end;
Delphi-Quellcode:
Dazu sollten folgende Variablen global deklariert werden und je nach Situation beim Programmstart richtig initialisiert werden:
procedure TForm1.Normalmodus;
begin BorderStyle := bsSizeable; FormStyle := fsNormal; SetBounds(oldX, oldY, oldW, oldH); end; oldX oldY oldH oldW |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:17 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz