用DBGrid的OnkeyUp事件
例:在Form1上放一Table1,一DataSource1,一DBGrid1,一Label1;连接好它们之间的
关系,在DBGrid1的OnKeyUp事件中写入以下代码,编译运行看看!
procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
PRow : integer;
begin
PRow := Table1.RecNo;
if Table1.RecordCount = 0 then PRow := 0;
Label1.Caption := IntToStr(PRow);
end;
以上代码在D5运行上通过!