掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TFrameを使用するには？ (ID：34888)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
タブを切り替えるとき 新しいタブの SHOW 元のタブの HIDE と 実行されるので TabSheetMyFrameのOnShowで MyFrame := TMyFrame.Create(TabSheetMyFrame); MyFrame.Parent := TabSheetMyFrame; TabSheetMyFrameのOnHideで MyFrame.Free; MyFrame := Nil; だとタブを切り替えたとたんに消えると思うんだけど・・・ こんな感じにすべきかと？ procedure TForm7.TabSheetOnShow(Sender: TObject); begin Frame8.Parent := TTabSheet(Sender); end; procedure TForm7.FormCreate(Sender: TObject); begin Frame8 := TFrame8.Create(TTabSheet(Sender)); Frame8.Parent := PageControl1.ActivePage; TabSheet1.OnShow := TabSheetOnShow; TabSheet2.OnShow := TabSheetOnShow; end; 一応 TabSheetOnShow で TabSheet(Sender).BringToFront; を入れれば表示されるようになると思うけど(タブが１個の場合表示されない)
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.