PageControlのページを削除するとエラーがでる (ID:22383)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ママンさま、その後下記のようにしてみました。 今のところエラーもでなくて動きますが、ママンさんが述べられていたこととは違うのでしょうか。 自分ではもう、何をしているのか理屈もわからずやっている状態ですが。 大変馬鹿なことをやっているかもしれません。何かありましたらご指導ください。 type TTabSheetEx = class(TTabSheet) public //private WebBrowser1: TWebBrowser; FBack: Boolean; FForward: Boolean; FUrlText:string; FTitleText:string; end; ・・・・ procedure TForm1.ToolButton1Click(Sender: TObject);//ナビゲート var TabSheet : TTabSheet; button : TButton; strName : String; begin strName := 'N' + inttostr(GetTickCount); TabSheet := TTabSheet.Create(PageControl1); TabSheet.Name := strName; TabSheet.Parent := PageControl1; TabSheet.PageControl := PageControl1; TabSheet.Caption := inttostr(TabSheet.TabIndex); TabSheetEx :=TTabSheetEx.Create(self); TabSheetEx.Parent :=TabSheet; TabSheetEx.Caption := inttostr(TabSheet.TabIndex); TabSheetEx.WebBrowser1 :=TWebBrowser.Create(TabSheetEx); TOleControl(TabSheetEx.WebBrowser1).Parent :=TabSheetEx; TabSheetEx.Name:= strName + 'b'; TOleControl(TabSheetEx.WebBrowser1).Parent :=TabSheet; TabSheetEx.WebBrowser1.Align := alClient; PageControl1.ActivePageIndex:=PageControl1.PageCount-1; TabSheetEx.WebBrowser1.Navigate(ComboBox1.Text); end; procedure TForm1.ToolButton2Click(Sender: TObject);//削除 var i:Integer; begin i:=PageControl1.ActivePageIndex; if i<0 then exit; TabSheet := PageControl1.Pages[i]; FindComponent(TabSheet.Name + 'b').Free; TabSheet.Free; end; よろしく尾長言い足します。