全屏显示(Display forms full screen)

[size=large]用下面的方法可以很简单地实现用窗口覆盖住整个屏幕：

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函数去解决它。[/size]