Etiket Arşivi: dbgrid enter key

procedure Form1.DBGrid1KeyDown (Sender: TObject; var Key: Word; Shift:TShiftState) ; begin if (Shift = [ssCtrl]) and (Key = VK_DELETE) then Key := 0; {ignore} end;

Delphi Dbgrid üzerinde iken enter tuşuna basınca tab tuşuna basılmış gibi sonraki column a geçme kodu. procedure Tfrm_fatura.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then if DBGrid1.Columns.Grid.SelectedIndex < DBGrid1.Columns.Count - 1 then DBGrid1.Columns[DBGrid1.Columns.grid.SelectedIndex + 1].Field.FocusControl else begin DBGrid1.Columns[0].field.FocusControl; end;