Скачать: CL | DM;

TDBNavigator как обработать событие кнопки   Найти похожие ветки 

← →
roman_ln ©   (2007-04-20 18:23) [0]

например nbNext

---

← →
icWasya ©   (2007-04-20 18:29) [1]

например так

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
 Button: TNavigateBtn);
begin
 Case Button of
   nbNext : begin
     if MessageDlg("Переходим к следующей строке ?",
        mtConfirmation, [mbYes, mbNo], 0) <>  mrYes then Abort;
   end;
 end;
end;

---

← →
roman_ln ©   (2007-04-20 18:44) [2]

спасиб

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c