Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID

PESQUISAR DICA:

MUDAR DE CAMPO COM ENTER PARA TODOS FORMS E MENSAGENS

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := ProcessaMsg;
end;

procedure TForm1.ProcessaMsg(var Msg: TMsg; var Handled: Boolean);
begin
   if not ((Screen.ActiveControl is TCustomMemo) or
           (Screen.ActiveForm.ClassName = 'TMessageForm')) then
     begin
       if Msg.message = WM_KEYDOWN then
         begin
           if Msg.wParam = VK_RETURN then
             begin
               Msg.wParam := VK_CLEAR;
               Keybd_event(VK_TAB,0,0,0);
             end;
         end;
     end;
end;