Question

Delphi中下面这个事件的功能

procedure Tlogin_Form.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if not (ActiveControl is TDBGrid) then
begin
key:=#0;
perform(WM_NEXTDLGCTL,0,0);
end
else
if (ActiveControl is TDBGrid) then
begin
with TDBGrid(ActiveControl) do
if SelectedIndex<(fieldcount-1) then
SelectedIndex:=SelectedIndex+1
else
SelectedIndex:=0;
end
end;
end;

这段代码是在一个密码登录程序里面看到的。
刚开始学Delphi，查了很多资料还是不太明白这段程序的功能，请高人帮忙。

Answer 1

功能是：回车进入下一个输入框栏目。

如果没有这个事件，回车就提交了。