按回车键，焦点跳转至下一个控件
? if? (Key <> 13) or (ActiveControl = nil) or (ActiveControl.ClassName = 'TMemo') then
??? Exit;
? if ActiveControl.ClassName <> 'TDBGrid' then
??? Perform(WM_Nextdlgctl,0,0);
? if ActiveControl.ClassName = 'TDBGrid' then
? begin
??? with TDBGrid(ActiveControl) do
??? begin
????? if (DataSource = nil) or (DataSource.State in [dsInactive, dsOpening]) then
??????? Exit;
????? if SelectedIndex = Columns.Count -1 then
????? begin
??????? DataSource.DataSet.Next;
??????? SelectedIndex := 0;
????? end else
??????? SelectedIndex :=SelectedIndex +1;
??? end;
? end;
按回车键，焦点跳转至下一个控件
?
