关于Formshortcut ? 为什么会执行两遍？

[hzg115]

想当在表单中按下回车键时，相当于按下某个按钮的，(因SpeedButton没有Default属性)，所以想在FormShortCut中执行这个代码，但为什么在测试时会执行两遍，怎样做？

void __fastcall TForm1::FormShortCut(TWMKey & Msg, bool &Handle)
{
if (Msg.CodeChar == VK_RETURN) //回车
ShowMessage("ShortCut");
}

为什么会执行两遍，两次Show出这个信息，我的表单上还有一个控件Edit，但我再加一个也是执行2次，应该跟这个没关吧，help

[whitelion]

将form的keypreview设为true
在form的keydown事件中写代码
if (Key==13)
{
SpeedButton1->Click();
]

即可完成此功能

[HEROIN]

同意楼上