根据数字键盘查询stringgrid中相对应的内容？

[de410]

stringgrid中的两列
TB001 TB002
1001 名称1
1002 名称2
1003 名称3
1004 名称4
1005 名称5
1006 名称6
1007 名称7
2001 名称8
2002 名称9
2003 名称10
2004 名称11
2005 名称12
3001 名称13
3002 名称14
3003 名称15
3004 名称16
4001 名称17
4002 名称18
7001 名称19
7002 名称20
7003 名称21


比如我按7，会自动定位到 7001 名称19，这一行，按4 ，定位到4001 名称17 这一行？

[jjwander]

在StringGrid1的KeyPress事件弄个
for i := 1 to StringGrid1.RowCount do
begin
if Copy(StringGrid1.Cells[1, i], 1, 1) = Key then
StringGrid1.Row := I;
end;

[jjwander]

在StringGrid1的KeyPress事件弄个
for i := 1 to StringGrid1.RowCount do
begin
if Copy(StringGrid1.Cells[1, i], 1, 1) = Key then
StringGrid1.Row := I;
end;

[de410]

顶一下~~

[xiaocongzhi]

顶

[de410]

兄弟此代码不行~~

[jjwander]

Copy(StringGrid1.Cells[1, i], 1, 1) 注意CELLS的COL参数 如果你第1列就是TB001 那你改成CELLS[0,i]就该可以了

我测试时 是在StringGrid1.SetFocus的情况下

[de410]

我测试是可以了，但没有达到我所说的要求，即定位在由此键值的第一行(最小值)上
比如我按7，会自动定位到 7001 名称19，这一行，按4 ，定位到4001 名称17 这一行

[de410]

再顶~~

[jjwander]

stringgrid貌似不支持selectrows这个事件
建议换成TMS组件的advstringgrid，支持我刚才说的这个
然后Advstringgrid1.SelectRows(i,1);

stringgrid.row:=i时 就看到个虚线框 不明显