TForm最大化显示：最大化了，但位置不对，稍微有点靠下，怎么设置？

Question

如题：大概下移了10来个象素

Answer 1

把WindowState设为wsMaximized出现上述现象，但设为wsNormal，打开后再最大化则正常

Answer 2

在FormShow里加
Self.Top  := 0;解决，但不明白为什么会这样？应该是某个属性设置出现问题了吧，以前这个窗口正常的，不知道今天动了哪个属性了

Answer 3

我以前用vclskin会出现这个问题。
解决办法是不在设计时设为最大化而在运行时在设为最大化。

Answer 4

运行时最大化也一样的，如果在FormShow里设置的话。除非点击最大化按钮

Answer 5

这个问题在XP下出现的吧，按下面的设置试试看：
FORM1.WindowState := wsMaximized;
FORM1.Position := poDesigned;

Answer 6

procedure TWebBrowerForm.FormCreate(Sender: TObject);
begin
    WebBrowerForm.WindowState:=   wsMaximized   ;  //没出现这个问题

Answer 7

我用VCLSkin也遇到过同样的问题
只能设计的时候不选最大化
运行期再写代码让界面最大化

Answer 8

我一般是这样实现最大化的，不怎么用WindowState属性
form1.top:=0;
form1.left:=0;
form1.width:=screen.width;
form1.height:=screen.height;

Answer 9

VCLSkin目前是有这个问题，但没时间去源码里改，可以用以下几种办法解决：办法一：
在FormShow中使用：Self.Top  := 0;方法二：
在FormCreate中使用：frmMain.WindowState := wsMaximized;方法三：
启动后再最大化，比如加个Timer控件，在FormShow最后触发Timer，在Timer中最大化窗体，示例如下：
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  //最大化办法三（解决VCLSkin刚开始最大化不能靠顶的问题） 
  frmMain.WindowState := wsMaximized;
end;procedure TfrmMain.TimerSysTimer(Sender: TObject);
begin
  TimerSys.Enabled := False;
  frmMain.WindowState := wsMaximized;
end;另外，supercc(帅帅) 的办法应该也可以，没试过。