掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
PageControlのページを削除するとエラーがでる (ID：22382)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ママンさん、お返事ありがとうございます。 もう駄目かと諦めかけていたところ藁をつかむ思いで返事を読みました。 レベルが低いためママンさんの述べられていることが理解できませんが私なりに理解した範囲で次のようにしてみました。 type TTabSheetEx = class(TTabSheet) public WebBrowser1: TWebBrowser; FBack: Boolean; FForward: Boolean; UrlText:string; TitleText:string; end; ・・・ procedure TForm1.ToolButton1Click(Sender: TObject); begin TabSheetEx :=TTabSheetEx.Create(Form1.PageControl1); TabSheetEx.Parent :=PageControl1; TabSheetEx.PageControl :=PageControl1; TabSheetEx.Caption := 'blank'; TabSheetEx.WebBrowser1 :=TWebBrowser.Create(TabSheetEx); TOleControl(TabSheetEx.WebBrowser1).Parent :=TabSheetEx; TabSheetEx.WebBrowser1.Align := alClient; TabSheetEx.WebBrowser1.OnCommandStateChange := WebBrowser1CommandStateChange; //イベントを定義しておく TabSheetEx.WebBrowser1.Navigate(ComboBox1.Text); end; 結果は駄目でしたが、どうもこういうことではないのですね。 ただいま、Buttonとブラウザを置き換えていろいろ挑戦しておりますが、未解決です。 できましたら、もう少しご説明していただけないでしょうか。お願いいたします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.