全屏显示(Display forms full screen)

用下面的方法可以很简单地实现用窗口覆盖住整个屏幕:

procedure TfrmMainForm.FormCreate(Sender: TObject);
begin
  { Position form }
  Top := 0 ;
  Left := 0 ;

  { Go full screen }
  WindowState  := wsmaximized;
  ClientWidth  := Screen.Width ;
  ClientHeight := Screen.Height;
  Refresh;
end;
如果这是一个典型的窗口,你需要考虑用下面的方法去去除窗口的边界。

procedure TfrmMainForm.FormCreate(Sender: TObject);
begin
  { Position form }
  Top := 0 ;
  Left := 0 ;

  { Go full screen }
  BorderStyle := bsNone ;
  WindowState  := wsmaximized;
  ClientWidth  := Screen.Width ;
  ClientHeight := Screen.Height;
  Refresh;
end;
这样,一般情况下,使用上面的方法就能够使窗口全屏显示但是会出现Windows的任务栏,如果不想要任务栏显示出来,我们需要将当前窗口设置到最上层:

procedure TfrmMainForm.FormCreate(Sender: TObject);
begin
  { Position form }
  Top := 0 ;
  Left := 0 ;

  { Go full screen }
  BorderStyle := bsNone ;
  WindowState  := wsmaximized;
  ClientWidth  := Screen.Width ;
  ClientHeight := Screen.Height;
  Refresh;
  SetForegroundWindow(Handle) ;
  SetActiveWindow(Application.Handle) ;
end;

Delphi使得这些工作变得很容易,如果你去使用别的编程工具,例如微软的Visual Basic,你需要调用API函数去解决它。

你可能感兴趣的:(编程,windows,工作,Go,Delphi)