用TAB键可以从StringGrid的一个单元格跳到下一个单元格。 我想回车时实现同样的效果应该如何何做？谢谢。

问题点数：20、回复次数：3Top

1 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-01-31 16:48:26 得分 20

procedure   TForm1.StringGrid1KeyDown(Sender:   TObject;   var   Key:   Word;  
      Shift:   TShiftState);  
  begin  
      case   Key   of  
          VK_RETURN:  
              if   TStringGrid(Sender).Col   +   1   <   TStringGrid(Sender).ColCount   then  
                  TStringGrid(Sender).Col   :=   TStringGrid(Sender).Col   +   1  
              else   begin  
                  TStringGrid(Sender).Col   :=   TStringGrid(Sender).FixedCols;  
                  if   TStringGrid(Sender).Row   +   1   <   TStringGrid(Sender).RowCount   then  
                      TStringGrid(Sender).Row   :=   TStringGrid(Sender).Row   +   1  
                  else   TStringGrid(Sender).Row   :=   TStringGrid(Sender).FixedRows;  
              end;  
      end;  
  end;  
  Top

2 楼snowedforest（蓬蒿人(★★★★★)）回复于 2002-01-31 18:23:22 得分 0

thanksTop

3 楼mudjack（程序也疯狂）回复于 2002-02-01 14:10:28 得分 0

scTop

相关问题

• 单元格
• stringgrid
• sender
• key

• 帖主：snowedforest
• zswang

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载