DBDGRID如何在新增及修改模式下，保持在新增及修改模式之所在記錄列， 不論按任何鍵或MOUSE都不會換行，也就是保持在目前的記錄，除非在存檔後才可移動記錄指標。

在 dbgrid 的

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if (Key = VK_UP) then   
  begin
    wwPreRecClick(Sender);
  end ;
  if (Key = VK_Down) then   
  begin
    wwPreRecClick(Sender);
  end ;
end;

mouse 也做如是觀,試試吧 如果愛情也有味覺 那麼 有沒有ㄧ種愛 微微泛酸 不太苦澀 有點甜密 嚐起來的滋味讓人想起幸福 Thomas Chiou

------
Thomas Chiou

  if (key = 38) or (key = 40) then begin
    if DM.Export110.State <> dsbrowse then begin
      key := 0;
      Exit;
    end;
  end;
 

~~應無所住而生其心~~

請問 key = 38,40是代表何鍵，若是tal及shift tab鍵則key值是多少。 另外Key = VK_UP及Key = VK_Down是代表何鍵。那裏可以有參改資料。 謝謝大哥的指導。

您好 38表↑40表↓ shift 16 alt 18 ~~應無所住而生其心~~

諸位大哥 我的問題是在我按tab鍵到最後一欄時，會自動跳下一筆記錄,按tab鍵到第一欄時會自動跳上一筆記錄, 我如何控制在新增及修改模式下不會自動跳下一筆或下一筆記錄, 滑鼠亦然.

諸位大哥 我的問題是在我按tab鍵到最後一欄時，會自動跳下一筆記錄,按tab鍵到第一欄時會自動跳上一筆記錄, 我如何控制在新增及修改模式下不會自動跳下一筆或上一筆記錄, 滑鼠亦然.

您好：  

 
type
  TDBGrid= class(DBGrids.TDBGrid)
  protected
    Procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
  end;      TForm1 = class(TForm)
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    ApplicationEvents1: TApplicationEvents;
    procedure Button1Click(Sender: TObject);
    procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Shift = [ssLeft] then begin
    if (Form1.ADOQuery1.state = dsedit) or (Form1.ADOQuery1.state = dsinsert) then
      abort;
    inherited;
  end;
end;

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key = VK_TAB) then key := 0; end; ~~應無所住而生其心~~

插个花： kytung550322您好：

procedure TForm1.Query1BeforeScroll(DataSet: TDataSet);
begin
   if dataset.state<>dsbrowse then
      begin
        abort;
      end;   
end;

试试看 ——行径窄处，留一步与人行—— ——