这里进行处理 procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then ...end;
这里进行处理 procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then ...end;这样处理是不行的,没一点反映.
我用ShowMessage(Key);方法将我按回车的key显示出来是一个空白.
是不是要实现这个效果? procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var Index: Integer; begin if Key = 13 then begin Index := DBGrid1.SelectedIndex; if Index < DBGrid1.FieldCount - 1 then DBGrid1.SelectedField := DBGrid1.Fields[Index + 1] else begin DBGrid1.DataSource.DataSet.Post; DBGrid1.DataSource.DataSet.Append; DBGrid1.SelectedField:=DBGrid1.Fields[0]; end; end; end;
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then ...end;
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then ...end;这样处理是不行的,没一点反映.
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Index: Integer;
begin
if Key = 13 then
begin
Index := DBGrid1.SelectedIndex;
if Index < DBGrid1.FieldCount - 1 then
DBGrid1.SelectedField := DBGrid1.Fields[Index + 1]
else
begin
DBGrid1.DataSource.DataSet.Post;
DBGrid1.DataSource.DataSet.Append;
DBGrid1.SelectedField:=DBGrid1.Fields[0];
end;
end;
end;