[megabyt]

У меня следующая проблема. Использую навигатор для добавления. Мине необходимо при нажатии на кнопку добавить в навигаторе открыть другую форму

[NIch]

Следующий код определяет нажатую кнопку навигатора и выводит сообщение с ее именем.

Код:

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
var
  BtnName: string;
begin
  case Button of
    nbFirst  : BtnName := 'nbFirst';
    nbPrior  : BtnName := 'nbPrior';
    nbNext   : BtnName := 'nbNext';
    nbLast   : BtnName := 'nbLast';
    nbInsert : BtnName := 'nbInsert';
    nbDelete : BtnName := 'nbDelete';
    nbEdit   : BtnName := 'nbEdit';
    nbPost   : BtnName := 'nbPost';
    nbCancel : BtnName := 'nbCancel';
    nbRefresh: BtnName := 'nbRefresh';
  end;
  MessageDlg('Была нажата кнопка' + BtnName, mtInformation, [mbOK], 0);
end;

А дальше думать...

[xanorik]

Код:

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
 if Button = nbInsert then
 begin
  with DBGrid1.DataSource.DataSet do
  begin
   DisableControls;
   Next;
   if not EOF then Prior;
   Form2.Show;
   EnableControls;
  end;
 end;
end;

Пользуйся