Anwendung im Vollbildmodus

[Flips]

Hi.

Also bei mir braucht man dieses ganze Zeugs zum Verschwinden lassen der Taskbar gar nicht.
Wenn du das Fenster wieder genau so haben willst wie es war, dann müsstest du die Werte zwischenspeichern.

Delphi-Quellcode:

//Groß
procedure TForm3.Button1Click(Sender: TObject);
var
  HTaskbar: HWND;
  OldVal: LongInt;
  i : Integer; 
begin
Playing := true;
oldW := Width;
oldH := Height;
oldX := Left;
oldY := Top;
{
// Find handle of TASKBAR
HTaskBar := FindWindow('Shell_TrayWnd', nil);
// Disable the taskbar
EnableWindow(HTaskBar, False);
// Hide the taskbar
ShowWindow(HTaskbar, SW_HIDE); 
}
BorderStyle := bsNone;
FormStyle   := fsStayOnTop;
Left        := 0;
Top         := 0;
Height      := Screen.Height;
Width       := Screen.Width;
end;

//Normal
procedure TForm3.Button2Click(Sender: TObject);
var
  HTaskbar: HWND;
  OldVal: LongInt;
  i : Integer; 
begin
Playing := False;
{
// Find handle of TASKBAR
HTaskBar := FindWindow('Shell_TrayWnd', nil);
// Disable the taskbar
EnableWindow(HTaskBar, True);
// Hide the taskbar
ShowWindow(HTaskbar, SW_SHOW); 
}
BorderStyle := bsSizeable;
FormStyle   := fsNormal;
Left        := oldX;
Top         := oldY;
Height      := oldH;
Width       := oldW;
end;

Hab das try-finally und das with jetzt der Einfachheit halber weggelassen.