동일한 위치를 유지하는 DBgrid에서 레코드를 삭제하고 새로 고침

Question

데이터베이스가 작습니다. dbgrid를 사용하고 있습니다. 레코드를 삭제하고 데이터베이스를 새로 고치는 방법을 알아야합니다. 색인 화살표가 같은 위치에 있거나 적어도 다음 색인으로 이동합니까? 하지만 현재 내 색인 화살표는 새로 고침 할 때마다 시작 양식을 시작합니다!

Answer 1

그냥 유지하고 다시 RECNO

var 
I:Integer; 
....... 

I := Ads.Recno; 
Ads.Delete; 
Ads.Recno := I; 

DBNavigator와 사용에 대한 예제 구현은 http://delphi.about.com/ ([article``]

Procedure DeleteAndKeepRecno(Ads: TCustomAdoDataset); 
var 
    rn: Integer; 
begin 
    rn := Ads.RecNo; 
    Ads.Delete; 
    Ads.RecNo := rn; 
end; 

procedure TForm4.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); 
begin 
    if Button = nbDelete then 
    begin 
    DeleteAndKeepRecno (TCustomAdoDataset(TDBNavigator(Sender).DataSource.DataSet)); 
    Abort; 
    end; 
end;