Vollbildmodus - ein- und ausschalten

[fkerber]

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