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

名前

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

本文

いつもお世話になっております。
PageControlにブラウザを表示させています。
Webページのリンクをクリックして次の画面を表示させます。
一度リンクで次画面を表示させたページを削除すると、削除時はエラーになりませんが、次にほかのボタン操作をすると次のようなエラーがでます。
「Access violation at address 00000017. Read of address 00000017.」
ページをリンクで次画面など表示させない場合はエラーはでません。
長くなりますがプログラムソースは、下記の通りです、なにか基本的な処理をしていないと思いますが、解決しません。
ご指導をお願いいたします。環境WindowsXP  Delphi6  Personalです。
FormにPageControlを貼り付け、ToolBarにComboBox1とNavigate、とページ削除ボタンを付けます。
uses  SHDocVw_TLB,OleCtrls;//追加
var
  Form1: TForm1;
  TabSheet : TTabSheet;
  WebBrowser1: TWebBrowser;
・・・・・
procedure TForm1.ToolButton1Click(Sender: TObject);//TWebBrowserを動的に生成する
begin
    TabSheet  :=  TTabSheet.Create(PageControl1);
    TabSheet.Parent       :=  PageControl1;
    TabSheet.PageControl  :=  PageControl1;
    WebBrowser1  :=  TWebBrowser.Create(TabSheet);
    TOleControl(WebBrowser1).Parent  :=  TabSheet;
    WebBrowser1.Align      :=  alClient;
    WebBrowser1.Navigate(ComboBox1.Text);
end;

procedure TForm1.ToolButton2Click(Sender: TObject);//アクティブページの削除
begin
    PageControl1.Pages[PageControl1.ActivePageIndex].Free;
end;
よろしくお願いいたしますm(_ _)m

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

戻る