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;
procedure TForm1.SetFullScreen(Full: boolean); begin if Full then begin BorderStyle:= bsNone; WindowState:= wsMaximized; DoubleBuffered:= true; Panel1.Align:= alClient; end else begin //......... end; end;