BCB中有没有这样的键盘消息拦截方法?

[imhappyboy]

在DELPHI中可以声明如下过程进行键盘拦截(比ONKEYPRESS还要好),但不知BCB中怎样写?有高手知道吗?

(该过程可以将 ENTER 模拟 TAB 而且效果非常好,就算碰上COMBOBOX控件也没问题.)

procedure CMDialogKey(var Msg:TWMKey); message CM_DIALOGKEY;

procedure TForm1.CMDialogKey(var Msg: TWMKey);
begin
if not (ActiveControl is TButton) Then
if Msg.Charcode = 13 then
Msg.Charcode := 9;
inherited;
end;

[woainihaha]

好,季老大说的对.

[qin_wei]

重载TForm的WndProc函数，所有的消息都能截获.
然后在case WM_CHAR:中写代码。

[jishiping]

class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TButton *Button2;
private: // User declarations
void __fastcall CMDialogKey(TWMKey&);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(CM_DIALOGKEY,TWMKey,CMDialogKey)
END_MESSAGE_MAP(TForm)
};

void __fastcall TForm1::CMDialogKey(TWMKey& Msg)
{
if (ActiveControl->ClassNameIs("TButton")) {
if (Msg.CharCode == 13)
Msg.CharCode = 9;
}
TForm::Dispatch(&Msg);
}