DBNvigator 的使用

Question

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);0D
beginend;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

DBNvigator和DBGrid的DataSource属性设置为同一个DataSource组件，就可以了

Answer 2

不需要加如什么代码的
 只要和DataSource相连接就可以了
它是数据感知组件

Answer 3

你的意思是用别的来实现它，你不喜欢他，是吗？
例如bitbtn1.clik为DBNvigator的next的话，在bitbtn1的click下写到
DBNvigator.btnclick(nbnext);
其余的都一样

Answer 4

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);0D
begin
  case button of 
   begin
     nbpost:
       begin
        ........
       end;
     nbinset:
       begin
        ........
       end;
     .......
   end;
end;

Answer 5

在DBNvigator的OnClick事件中
判断是什么Button按下