Fórum Funcionar enter em CLX #205506

e ai meu povo blzzzz

o Exemplo abaixo funciona em VCL eu uso atualmente
porem eu preciso que funcione em CLX

esse exemplo faz o enter funcionar e a cetinha pra cima e pra baixo tambem

//=== cria uma procecdure no form principal

procedure ProcessaMsg(var Msg: tagMSG; var Handled : Boolean) ;

//=== a procedure

procedure TFRMMenu.ProcessaMsg (var Msg: TMsg; var Handled : Boolean) ;
Begin
if Msg.message = WM_KEYDOWN then
begin
if not (Screen.ActiveControl is TCustomMemo) and
not (Screen.ActiveControl is TButtonControl) and
not (Screen.ActiveControl is TCustomDBGrid) and
not (Screen.ActiveControl is TCustomComboBox) and
not (Screen.ActiveControl is TDBLookUpComboBox) then

begin
if not (Screen.ActiveControl is TCustomControl) then
begin
if Msg.wParam = KEY_Down then Msg.wParam := KEY_TAB;
if Msg.wParam = KEY_UP then
begin
Msg.wParam := KEY_CLEAR;
Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0);
end;
end;
if Msg.wParam = KEY_Return then Msg.wParam := KEY_TAB;
end;
end;
End;


//=== no evento oncreate do formo coloco
Application.OnMessage := ProcessaMsg;