procedure TForm1.Button2Click(Sender: TObject);
var
        mypan :TPanel;
begin
        mypan := TPanel.Create(Panel3);
        mypan.ParentWindow := Panel3.Handle;
        mypan.Align := alClient;
end;我通过上面的创建,在panel3上创建一个mypan为什么不能完全覆盖掉panel3呢? 不解呀?~?其中我用了align属性并且等于 alclient; 但不知道为什么?? 
有什么处理方法吗?? 请高手指教~~~~

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      mypan: TPanel;
    begin  mypan := TPanel.Create(Panel3);
      mypan.Align := alClient;
      mypan.Parent:=panel3;
    end;
     这样就可以了,给分吧
      

  2.   

    mypan.ParentWindow 改为mypan.Parent
      

  3.   

    我错了,panel放在panel上你的方法是可以的,但是我用 TWebBrowser 
    就不知道如何了 :(
    procedure TForm1.Button2Click(Sender: TObject);
    var
            myweb :TWebBrowser;
    begin
            myweb := TPanel.Create(Panel3);
            myweb.ParentWindow := Panel3.Handle;
            myweb.Align := alClient;
    end;谢谢在指教,如果分不够,我在开帖给你~~ 谢谢了