Question

Delphi程序。下面程序的作用是什么？

procedure TfcMatInquery.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
Perform(WM_NEXTDLGCTL,0,0);
Key:=#0;
end;
end;

Answer 1

if Key=#13 then //如果key就是输入的键位=#13 #13表示ender键，具体的可以查ASCII表
begin
Perform(WM_NEXTDLGCTL,0,0); //这是发送消息，就是让下一个控件获得焦点
Key:=#0; //清空key值，就是让你输入的键位变空
end;

总的加起来就是说当你输入ender键位时，焦点转换到下一个控件，但不执行ender键的内容。

Answer 2

回车事件，自动定位到下个控件。

Answer 3

处理回车事件，只接受回车按键消息，其他的都不处理

Answer 4

如果用户在combobox1中按下回车键
软件上焦点切换到下一个控件