Проблема с DBNavigator

[Stranger333]

У меня есть DBNavigator и в нем есть свойство ConfirmDelete (Boolean), я хочу сделать что бы под час удаления было мое сообщение, а не стандартное. Я делал так но оно удаляет не зависимо от самого сообщения. Тоесть мне надо как то сделать перехватчик событий или что. Помогите чем можете

procedure TForm1.DBNavigator2Click(Sender: TObject; Button: TNavigateBtn);
begin
  if Button=nbDelete then
  case MessageDlg('Вы хотите удалить?',mtConfirmation,[mbYes,mbNo],0) of
  mrYes: case MessageDlg('Точно?',mtConfirmation,[mbYes,mbNo],0) of
  mrYes: DBNavigator2.BtnClick(nbDelete);
  mrNo:exit;
  end;
  mrNo:exit;
  end;
end;

[Stilet]

Я бы на твоем месте не пользовался этим компонентом а сделал свою панель, накидал туда кнопок и их описал как нужно.

[Stranger333]

Сообщение от Stilet

Я бы на твоем месте не пользовался этим компонентом а сделал свою панель, накидал туда кнопок и их описал как нужно.

Я так и сделал но столкнулся с маленькой проблемой: я все кнопки сделал как у навигатора тоесть когда они должны быть активными, но они свойство Enabled меняют только когда кликать по этих кнопках, но если мышью переставить фокус тогда ничего не изменится. Мне нужно когда фокус меняется тогда свойство моих кнопок изменяется. Я не знаю как поставить условие что когда фокус изменил свое положение тогда свойство некоторых кнопок Enabled = True.
Например запустил проект и фокус стоит в первой клетке, значит кнопки nbFirst и nbPrior должны быть Enabled := False. Но если фоку будет в тертий клетке значит эти кнопки должны быть розблокированы.