Работа с кнопками

[girz]

Столкнулся с такой проблемой, разместил компонент ToolBar1 с 4 кнопками перемещения по DBgrid. Всего в базе 3 Dbgrida ну и соотвецтвенно по 3 ADOtable DataSourca. Каждый DbGrid Расположен на вкладке PageControla
так вот как мне управлять всем этим из одного ToolBar1. Пробовал но не получается наверно нужна какая то команда. И еще хотелось бы управлять из MainMenu посоветуйте что нибудь.

[Баламут]

Например так

  case pageControl1.ActivePageIndex of
    0: ADOTable1.Next;
    1: ADOTable2.Next;
  end;

Или другой вариант

......
   Table: TADOTable;
......
procedure TForm1.PageControl1Change(Sender: TObject);
begin
  if Table = nil then Table := TADOTable.Create(Owner);
  case PageControl1.ActivePageIndex of
    0: Table := ADOTable1;
    1: Table := ADOTable2;
  end;
  Table.Active := true;
end;

procedure TForm1.BtnRightClick(Sender: TObject);
begin
  table.Next;
end;

Но здесь придется тогда следить за переменной Table и самому создавать/унчтожать ее... В общем разберешься.