在DBGrid中添加数据，当记录不符合某条件时不允许上下卷动（即只能定位在该记录），如何实现

Question

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin//检查合法性
end;

Answer 1

同意outer2000(天外流星）的说法。

Answer 2

//请参考
//......type
{}TForm1 = class(TForm)
{}{}DataSource1: TDataSource;
{}{}DBGrid1: TDBGrid;
{}{}Table1: TTable;
{}{}Button1: TButton;
{}{}procedure Button1Click(Sender: TObject);
{}{}procedure Table1AfterScroll(DataSet: TDataSet);
{}private
{}{}{ Private declarations }
{}{}FLockBook: string;
{}{}FChanging: Boolean;
{}public
{}{}{ Public declarations }
{}end;var
{}Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
{}if FLockBook <> '' then
{}{}FLockBook := ''
{}else FLockBook := DBGrid1.DataSource.DataSet.Book;
end;procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
{}if FChanging then Exit;
{}FChanging := True;
{}if FLockBook <> '' then DataSet.Book := FLockBook;
{}FChanging := False;
end;