請教各位前輩! DBGRID 按Tab 不會跳下一欄位,會跳到下一筆?? 當 DBGIRD1.ReadOnly :=True; ......... DBGIRD1.ReadOnly :=False; 之後 DBGRID 按Tab 就不會跳下一欄位,會跳到下一筆?? 在 DBGIRD1.ReadOnly :=True; 之前都不會這樣 謝謝各位前輩!!

試試將DBGRID.READONLY變為FALSE..並將DBGRID.OPTIONS.DGEDITING變為FALSE 和DBGRID.OPTIONS.DGTABS變為TRUE...應該就可以了ㄅ...我的DBGRID都是如此設定...按TAB才會跳下一欄位!! ------------------------------------------------------------------ 試試看ㄅ...

jeffreck您好： 参考下面解释： http://www.delphibbs.com/delphibbs/dispq.asp?lid=230577 Nose大大的解答 也许是Delphi的Bug,跟踪进去你可以发现

 
procedure Tab(GoForward: Boolean);
  var
    ACol, Original: Integer;
  begin
    ACol := Col;
    Original := ACol;
    BeginUpdate;    { Prevent highlight flicker on tab to next/prior row }
    try
      while True do  //无条件循环
      begin
        if GoForward then
          Inc(ACol) else
          Dec(ACol);
        if ACol >= ColCount then  //最后从此退出，移动到下一Row
        begin
          NextRow(False);
          ACol := FIndicatorOffset;
        end
        else if ACol < FIndicatorOffset then
        begin
          PriorRow(False);
          ACol := ColCount - FIndicatorOffset;
        end;
        if ACol = Original then Exit;
        if TabStops[ACol] then   //如果一开始设为ReadOnly=True ,返回总是False,所以没有右移动。
        begin
          MoveCol(ACol, 0);
          Exit;
        end;
      end;
    finally
      EndUpdate;
    end;
  end;  

——行径窄处，留一步与人行—— ——Never give up, never surrender——