delphi 按回车键

Question

如何制作一个编辑框，以便当我按 Enter 键时光标仍在其中。然后它会转到网络浏览器中编辑框中的那个网站？

谁能帮我吗？

Answer 1

您应该使用 OnKeyPress 事件而不是 OnKeyDown 事件:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ord(Key) = VK_RETURN then
  begin
    Key := #0; // prevent beeping
    WebBrowser1.Navigate(Edit1.Text);
  end;
end;