procedure MyKeyPress(frm:TForm; var Key: Char);
begin
if Key = #13 then { 如果按下了回车键 }
begin
Key := #0; { 吃掉回车键 }
frm.Perform(WM_NEXTDLGCTL, 0, 0); { 移动到下一个控制 }
end;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
MyKeyPress(Self, Key);
end;
form可以添加到reposity。