Atajos en Popup menus

[aguml]

Amigos tengo un Popup menu que está asociado con dos TListbox diferentes y la idea es que al pulsar un atajo de teclado se ejecute el método que tenga ese atajo pero quiero que funcione con el ListBox que tenga el foco. Ahora mismo no me funciona con ninguno de ellos y no se por qué. ¿Pueden ayudarme?

Esto tengo:

Código PHP:

void __fastcall TForm1::SendClipboardSelectedArchivosClick(TObject *Sender)

{
    if(ListBoxSeleccionados->Focused)
        CopiarSeleccion(ListBoxSeleccionados);
    else if(ListBoxCoincidencias->Focused)
        CopiarSeleccion(ListBoxCoincidencias);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SendClipboardAllArchivosClick(TObject *Sender)
{
    if(ListBoxSeleccionados->Focused)
        CopiarTodo(ListBoxSeleccionados);
    else if(ListBoxCoincidencias->Focused)
        CopiarTodo(ListBoxCoincidencias);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::DelSelectedArchivosClick(TObject *Sender)
{
    if(ListBoxSeleccionados->Focused)
        LabelNArchivos->Caption = EliminarSeleccion(ListBoxSeleccionados);
    else if(ListBoxCoincidencias->Focused)
        LabelNCoincidencias->Caption = EliminarSeleccion(ListBoxCoincidencias);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CreateFileArchivosClick(TObject *Sender)
{
    if(ListBoxSeleccionados->Focused)
        ListBoxSeleccionados->Items->SaveToFile("Lista_principal.txt");
    else if(ListBoxCoincidencias->Focused)
        ListBoxCoincidencias->Items->SaveToFile("Lista_coincidencias.txt");
} 


Les puse delante de cada Caption el & en el carácter que quiero que sea el atajo pero no funcionan los atajos.

[Neftali [Germán.Estévez]]

Ejecuta el programa paso a paso y mira qué te devuelve al preguntar por el Listbox.focused.
Es posible que cuando se ejecuten las accciones ninguno de los 2 listbox tenga el foco.
A quién está asignado el popupmenu?

[aguml]

está asignado a dos Listbox. Incluso he probado a hacer un SetFocus en el evento OnClick y ni así me funciona.

[Neftali [Germán.Estévez]]

Empezado por aguml

está asignado a dos Listbox. Incluso he probado a hacer un SetFocus en el evento OnClick y ni así me funciona.

En ese caso utiliza el Sender y no tendrás que hacer el IF para cada TListBox