rocedure TMainForm.FormCreate(Sender: TObject);
begin
width:=Screen.Width;
Height:=Screen.Height;
Color:=clBlack;
Position:=poScreenCenter;
Font.Handle:=GetStockObject(DEFAULT_GUI_FONT);
end;
begin
width:=Screen.Width;
Height:=Screen.Height;
Color:=clBlack;
Position:=poScreenCenter;
Font.Handle:=GetStockObject(DEFAULT_GUI_FONT);
end;
1:将form的Max最大按钮设为FALSE;
2: 将窗口的显示状态设为wsMaximized;