如何让一个窗口全屏幕显示

时间:2022-07-11 16:25:18
RT,就是无视任务栏的最大化!!!!!!!!!

如何用Delphi实现

还有,有没有办法做一个任务栏呢?

就是程序最大化不会超过人物栏的位置?

另外,如果想知道一个用处的函数,除了根据英文的拼写来猜函数,还有什么办法来查MSDN来知道此函数?

4 个解决方案

#1


没人可以说说吗?

#2


不会,但帮你问。。。。
楼下的来回答。

#3


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;

#4


....

啊??可以这样啊???????

任务栏的默认最上没用了???

#1


没人可以说说吗?

#2


不会,但帮你问。。。。
楼下的来回答。

#3


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;

#4


....

啊??可以这样啊???????

任务栏的默认最上没用了???