type TTabPageEnum = (tpHome, tpChart, tpScore, tpConfig, tpHelp, tpEtc, tpResult); procedure ChangeTab(aTabPageEnum: TTabPageEnum); begin frmMain.tabMain.TabIndex := Integer(aTabPageEnum); end;
12日目 TTabControl のページャー
コメントをどうぞ
type TTabPageEnum = (tpHome, tpChart, tpScore, tpConfig, tpHelp, tpEtc, tpResult); procedure ChangeTab(aTabPageEnum: TTabPageEnum); begin frmMain.tabMain.TabIndex := Integer(aTabPageEnum); end;