Reproductor Delphi

[[escafandra]]

Código Delphi [-]
procedure TForm1.SetFullScreen(Full: boolean);
begin
  if Full then
  begin
    BorderStyle:= bsNone;
    WindowState:= wsMaximized;
    DoubleBuffered:= true;
    Panel1.Align:= alClient;
  end
  else
  begin
  //.........
  end;
end;

Saludos.