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;
よろしく尾長言い足します。

←解決時は質問者本人がここをチェックしてください。

戻る