|
#1
|
|||
|
|||
Dbgrid
У меня следующая проблема. Использую навигатор для добавления. Мине необходимо при нажатии на кнопку добавить в навигаторе открыть другую форму
|
#2
|
||||
|
||||
Следующий код определяет нажатую кнопку навигатора и выводит сообщение с ее именем.
Код:
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; В начале был Бит, потом Байт и только потом появилось Слово... |
#3
|
|||
|
|||
Код:
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; Пользуйся |