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

名前

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

本文 ブラウザの変わりにbuttonを使ってますが要は同じです。 これは理解しやすいように設計しましたが、 私が実装するんでしたら、このような方法は取りません。 ブラウザを配置したTabSheet継承コンポ（クラス）を作成します。 興味あるならサンプル作ります。 procedure TForm1.Button1Click(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); button :=TButton.Create(self); button.Name := strName + 'b'; button.Parent := TabSheet; button.Caption := inttostr(TabSheet.TabIndex); end; procedure TForm1.Button2Click(Sender: TObject); var TabSheet : TTabSheet; i:Integer; begin i:=PageControl1.ActivePageIndex; if i<0 then exit; TabSheet := PageControl1.Pages[i]; FindComponent(TabSheet.Name + 'b').Free; TabSheet.Free; end;