delphi stringgrid滚动到最后一行

答案:2 悬赏:50 手机版

解决时间 2021-03-01 11:16

提问者网友：雨不眠的下
2021-02-28 10:31

stringgrid中保存有100行数据，每次看后面新增加的数据需要用鼠标拉右边的滚动条，这样很麻烦。
如何使stringgrid一打开，滚动条就滚到最后一行数据的位置？？

请高手赐教。。谢谢。。

最佳答案

五星知识达人网友：低音帝王
2021-02-28 12:03

先设置其焦点：

stringgrid1.focus;
再模拟按下end键：
key_event(VK_END,vk_down);
key_event(VK_END,vk_up);

如果不行的话，可以尝试模拟按下Ctrl+End;
你可以先尝试按下Ctrl+End看是否可以到最后再说；

全部回答

1楼网友：鸽屿
2021-02-28 13:37

在你的行（记录）追加的事件里，让当前行的指针(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;

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息