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:
procedure TForm1.Normalmodus;
begin
BorderStyle := bsSizeable;
FormStyle := fsNormal;
SetBounds(oldX, oldY, oldW, oldH);
end;
Dazu sollten folgende Variablen global deklariert werden und je nach Situation beim Programmstart richtig initialisiert werden:
oldX
oldY
oldH
oldW