ユーザーが入れ子になったタブシートに切り替えると、コードを実行する方法は？

Question

私は3 TTabSheetを持っては、TPageControlを持っており、それらのいくつかは今、それらのタブシートの一つは、私が実行したいユーザーに見えるようになるたび

Page Control 1 
    TabSheet 1 
    TabSheet 2 
    Page Control 2 
     TabSheet 2a 
     TabSheet 2b 
    TabSheet 3 

のTTabSheet

並べ替えを持って、さらには、TPageControlを持っていますいくつかのコードが、私はどのイベントをフックするか分からない。例えば

ユーザーがTabSheet 2aが表示されているTabSheet 2にTabSheet 1やスイッチを見ているならば、私はタブシート部2aのコードを実行したいが、私はタブシート部2aのフォーカス取得時やOnShowをフックすることはできません。それはPage Control2のOnChangeではありません。

実際、私が見ることができるのは、ページコントロール1のOnChangeイベントにスイッチ/ケース全体を入れることです。これはもっと良い方法ですか？

Answer 1

私は各PageControlのOnChange（）とActivePageをフックしました。フレームを使うように再設計することなく、私のために働く。

Answer 2

各TabSheetには、ユーザーがクリックして表示されるたびにトリガーされる「OnShow」イベントがありますが、これはトリックを行う必要がありますが、ページコントロール内には親として別のページングコントロールがあり、 UIで重い場合は、タブシートのOnShowイベントで作成し、タブシートのOnHideイベントで破棄するフレームを使用してみてください。

編集： TFrameをタブシート内で使用する場合は、フレームの「公開」セクションに移動し、CTRL + SPACEキーを押し、「作成」を入力して「作成」コンストラクタをオーバーライドし、あなたはそれをオーバーライドするように "破棄"してください。

Answer 3

私は、タブシート上で "onEnter"イベントを使用しています。しかし、私はフォーカスがタブシートに入るときにのみ解雇されます。だから私は手動でタブシートにpagecontrolが変更されたときにフォーカスを設定しています。

procedure TForm1.PageControl1Change(Sender: TObject); 
begin 
    pagecontrol1.ActivePage.SetFocus; 
end