各位大大: 我想在DBGrid中按enter鍵達到移動到下一單元格,如果是光標在本行末單元格,就自動跳到下一行的第一單元格的效果. 先謝謝了!

您好﹗    試試如下﹕

procedure TForm3.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    begin
      if ADOTable1.State = dsBrowse then
        begin
          if DBGrid1.SelectedIndex < (DBGrid1.FieldCount - 1) then
            begin
              DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1;
            end
          else
            begin
              ADOTable1.Next;
              DBGrid1.SelectedIndex := 0;
            end;
        end
      else
      if ADOTable1.State In [dsInsert, dsEdit] then
        begin
          if DBGrid1.SelectedIndex < (DBGrid1.FieldCount - 1) then
            begin
              DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1;
            end
          else
            begin
              ADOTable1.Post;
              ADOTable1.Next;
              DBGrid1.SelectedIndex := 0;
            end;
        end;
    end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================ 發表人 - cashxin2002 於 2005/05/11 16:36:41

------
忻晟

你好 可以試試看在form的KeyDown的事件中寫KeyBd_Event(vk_tab,0,0,0),然後把Form的KeyPreview設定成True, 這樣子在按下Enter的時候就會模擬成Tab鍵的功能,在DBGrid中當移動到最後一個單元的時候,就會自動跳下一行!!試試看吧!! Pillar Wang

------
Pillar Wang

不好意思,補充一下,我的做法在Form上面所有的欄位只要TabStop不要設定成False的元件都會受到Enter鍵轉換成Tab鍵的處理!!所以要用的時候要判斷是不是會影響程式的運作喔!! Pillar Wang

------
Pillar Wang

您好: 以下參考看看. procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=13) then key:=9; end;

謝謝Cashxin2002兄的指點! 同時也謝謝pillar62与supman的提示!用來轉換成Tab鍵的思路也是可取的! 再次謝謝!