按键点击按钮点击不应该

Question

这段代码在Delphi XE4下运行正常。在XE6下，我在cxTextedit中输入的任何字符都会触发按钮。

procedure TForm1.cxTextEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=chr(13) then
Key := #0;
AdvGlowButton1Click(Self);
end;

可能出现什么问题？

Answer 1

您显示的代码在所有Delphi版本中单击每个键入的字符上的按钮。如果您只是在键入ENTER时尝试单击该按钮，则表示您缺少必需的begin/end对：

procedure TForm1.cxTextEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin // <-- add this
    Key := #0;
    AdvGlowButton1Click(Self);
  end; // <-- add this
end;