pagecontrol动态新增加的TabSheet如何通过双击鼠标左键关闭.

                            
var   
      tab   :TTabSheet;  
      web   :TWebBrowser;  
  begin  
      tab   :=TTabSheet.Create(BBSPageControl);  
      tab.PageControl   :=BBSPageControl;  
      tab.Caption   :=   Title;  
      web   :=TWebBrowser.Create(tab);  
      web.ParentWindow   :=tab;

查看回复