下面的方法是在DBGrid中实现的,可以参照一下: with DBGrid1 do if selectedindex<(fieldcount-1) then selectedindex:=selectedindex+1 else selectedindex:=0;
呵呵 在StringGrid的OnEnter时间里进行焦点的转移就可以实现
一个笨的方法:OnKeyPress ; var iCol,iRow: integer; begin if not(key = #13) then exit; if StringGrid1.Col <> StringGrid1.ColRow - 1 then StringGrid1.Col := StringGrid1.Col + 1 if (StringGrid1.Col = StringGrid1.Col - 1) and (StringGrid1.Row <> StringGrid1.RowCount -1) then begin StringGrid1.Col := 1; StringGrid1.Row := StringGrid1.Row + 1; end; end;没测过,可能不是一个很好的办法
with DBGrid1 do
if selectedindex<(fieldcount-1) then
selectedindex:=selectedindex+1
else
selectedindex:=0;
在StringGrid的OnEnter时间里进行焦点的转移就可以实现
var
iCol,iRow: integer;
begin
if not(key = #13) then exit; if StringGrid1.Col <> StringGrid1.ColRow - 1 then
StringGrid1.Col := StringGrid1.Col + 1
if (StringGrid1.Col = StringGrid1.Col - 1) and (StringGrid1.Row <>
StringGrid1.RowCount -1) then
begin
StringGrid1.Col := 1;
StringGrid1.Row := StringGrid1.Row + 1;
end;
end;没测过,可能不是一个很好的办法
iCol,iRow: integer;
//多余的