掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.