delphi DBNavigator1 删除前 后 事件

//擦除 原来线

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;    Button: TNavigateBtn);
begin
  if button=nbDelete then   DBtooLine(  clBtnFace,clBtnFace);  //擦除 原来线
end;

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if button=nbDelete then   DBtooLine(  clGreen,clRed);     //画新线
end;