delphi 窗口全屏.txt

来自「本软件作为交流使用」· 文本 代码 · 共 21 行

procedure TForm1.Button1Click(Sender: TObject);
begin
  //覆盖任务栏
  Self.BorderStyle := bsNone;//使窗口无边界
  Self.Left := 0;
  Self.Top := 0;
  Self.Width := Screen.Width;
  Self.Height := Screen.Height;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  //保留任务栏
  Self.BorderStyle := bsNone;
  Self.Left := Screen.WorkAreaLeft;
  Self.Top := screen.WorkAreaTop;
  Self.Width := Screen.WorkAreaWidth;
  Self.Height := Screen.WorkAreaHeight;
end;