我曾经用api函数试过,能隐藏任务栏,但任务栏的地方还是会留出空间,并不是真正的全屏显示

解决方案 »

  1.   

    form内加入一个函数:
    procedure CreateParams(var Params: TCreateParams); override;
    下面是代码:
    procedure TForm1.CreateParams(var Params: TCreateParams);
    begin
      inherited;
      params.X:=0;
      params.Y:=0;
      params.Width:=Screen.Width;
      params.Height:=Screen.Height;
      Params.Style:=(Params.Style and not  WS_THICKFRAME) or WS_DLGFRAME ;
    end;
      

  2.   

    请将 form 的BorderStyle 设为 bsNone
               WindowState  设为 wsMaximized
    其它不变