De: Tiago Zacchi [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 9 de julho de 2007 13:14 Para: Grupo_Delphi-Br Assunto: Aplication OnMessage Olá! Criei uma função que faz com que o ENTER tenha a mesma função que o TAB. Fiz isto da seguinte forma, criei uma função que é chamada sempre que há uma mensagem entre o Win e Delphi. Application->OnMessage = EnterAsTab, EnterAsTab é a função que criei que verifica se foi pressionado o ENTER: void __fastcall TfrmMenuEstilo::EnterAsTab(tagMSG &Msg, bool &Handled) { if (Msg.message == WM_KEYDOWN && Msg.wParam == VK_RETURN) { // Se não for um Botão if (!Screen->ActiveControl->ClassNameIs("TButton")) // Alteração { keybd_event(VK_TAB, 0, 0, 0); Handled = true;//Faz com que o enter seja descartado } } } //-------------------------------------------------------------------------- - Agora gostaria que na mesma função eu pudesse verificar se o foco avançou ou retornou um componente, algo assim: if (Msg.message == WM_NEXTDLGCTL) { } else { } Alguém Teria alguma Sugestão? Uso o C++ Builder, mas, para não fugir do assunto da lista, a solução pode ser dada para o Delphi! Obrigado! [As partes desta mensagem que não continham texto foram removidas]