Question

delphi StringGrid一行一行的增加表格，如何实现垂直滚动条一直跟着新增表格移动

我想要实现的是增加多行表格后，滚动条一直处于顶端，新增的表会看不到，需要手动移动滚动条，我需要的滚动条一直处于最底端。

Answer 1

在你的行（记录）追加的事件里，让当前行的指针(Row)一直指向最后一条,滚动条同步跟进。
这是我过去做过的一个有效实例，供参考：
procedure TForm1.BitBtn1Click(Sender: TObject); //增加一条时，行号指向最后一条
begin
StringGrid1.RowCount:=StringGrid1.RowCount+1; //追加一行
StringGrid1.Row:= StringGrid1.RowCount-1; //行号跟进
Label1.Caption:='当前行：'+IntToStr(StringGrid1.RowCount); //指示滚动条和行号同步
end;

procedure TForm1.StringGrid1Click(Sender: TObject); //点击某行时看看行号效果
begin
Label1.Caption:='当前行：'+IntToStr(StringGrid1.Row);
end;

Answer 2

为什么一定要用StringGrid，放着DBGRID不用，还有DBGRIDEH显示数据更优秀。可能是想用delphi StringGrid作数据录入界面，我劝你一句，这是一种最愚蠢的搞法，首先是不能进行快速录入数据，其次是这样做，满版的数据会让用户头昏眼花。
你在表格中输入数据，最终的目的还是想把这些数据保存下来，既然保存，就应该使用DBGRID或者DBGRIDEH。

Answer 3

procedure TForm1.btn1Click(Sender: TObject);
begin
  strngrd1.Row := strngrd1.RowCount-1;
end;