如何使快捷键根据活动的标签页执行不同的操作？

TPageControl

TTabSheet

TToolBar

TToolButton

asNormal

asSuspended

TActionList.State

TabSheets

procedure TForm1.actNextPageExecute(Sender: TObject)
var
   nextPageIndex: Integer;
begin
   nextPageIndex := PageControl1.ActivePageIndex+1;

   if (nextPageIndex > PageControl1.Pages.Count-1) then
       nextPageIndex := 0;

   PageControl1.ActivePageIndex := nextPageIndex;
end;

ActionComponent