webbrowser 改变位置后显示不了

Question

我在Form1上拖放了一个WebBrowser1控件,Navigagte到http://www.baidu.com
然后,通过Form1上的一个按钮Button1,改变该WebBrowser1控件的大小和位置
以下是点击后运行的代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Width := Random(300) + 30;
  WebBrowser1.Height := Random(300) + 30;  WebBrowser1.left := Random(100) + 30;
  WebBrowser1.Top := Random(100) + 30;
end;发现,多点几次,WebBrowser1就不在Form上显示了,再点一下就又显示出来了.
如果我屏蔽
  WebBrowser1.left := Random(100) + 30;
  WebBrowser1.Top := Random(100) + 30;
这两句,就不会出现有时显示不出的问题.郁闷啊,望各位高手出手相助.

Answer 1

上面的是在Delphi2010里面测试的,刚才又在Delphi7中测试过,没有了上面的那些问题,
不知道为什么Delphi2010里面就有.
大家有没什么修改建议,2010里面的

Answer 2

我只有delphi7，没用过2010不清楚

Answer 3

没有,我有跟踪,一直在父窗体范围里面,并且也不会被别的什么组件遮挡.
太奇怪了,同样的代码,Delphi7没问题,Delphi 2010里面就有问题.

Answer 4

没有,我有跟踪,一直在父窗体范围里面,并且也不会被别的什么组件遮挡.
太奇怪了,同样的代码,Delphi7没问题,Delphi 2010里面就有问题.

Answer 5

用spy++看看web是否可见，还有web窗口位置

Answer 6

我用spy++跟踪了,发现web的位置是正确的,在Form内.
并且是可见的,但是就是有时候显示不出来,
很奇怪

Answer 7

各位大虾,有谁在用Delphi 2010的,帮我看看,到底怎么回事.