从下边弹出一个列表实现单选

来源：互联网发布：加油站网络平台编辑：程序博客网时间：2024/04/27 15:28

Includes:
#include <aknlists.h>
#include <aknpopup.h>
#include <BADESCA.H>

Link Against:
avkon.lib
eikctl.lib
eikcoctl.lib
bafl.lib

_LIT(KtxPopUpTitle            ,"Select item");

_LIT(KtxPopUpItem1            ,"Item 1");
_LIT(KtxPopUpItem2            ,"Item 2");
_LIT(KtxPopUpItem3            ,"Item 3");
_LIT(KtxPopUpItem4            ,"Item 4");
_LIT(KtxPopUpItem5            ,"Item 5");

void SelectSomethingL(TDes& aSelected)
{
    CAknSinglePopupMenuStyleListBox* list =
new(ELeave)CAknSinglePopupMenuStyleListBox;
    CleanupStack::PushL(list);

    CAknPopupList* popupList = CAknPopupList::NewL(list,
R_AVKON_SOFTKEYS_OK_BACK, AknPopupLayouts::EMenuWindow);
    CleanupStack::PushL(popupList);

    list->ConstructL(popupList, 0);
    list->CreateScrollBarFrameL(ETrue);
    list->ScrollBarFrame()->SetScrollBarVisibilityL(CEikScrollBarFrame::EOff,
CEikScrollBarFrame::EAuto);

    CDesCArrayFlat* ItemArray = new(ELeave)CDesCArrayFlat(5);
    CleanupStack::PushL(ItemArray);

    // add the item adding in here..
    ItemArray->AppendL(KtxPopUpItem1);
    ItemArray->AppendL(KtxPopUpItem2);
    ItemArray->AppendL(KtxPopUpItem3);
    ItemArray->AppendL(KtxPopUpItem4);
    ItemArray->AppendL(KtxPopUpItem5);

    CleanupStack::Pop();            //ItemArray
    list->Model()->SetItemTextArray(ItemArray);
    list->Model()->SetOwnershipType(ELbmOwnsItemArray);

    popupList->SetTitleL(KtxPopUpTitle);

    // Show popup list and then show return value.
    TInt popupOk = popupList->ExecuteLD();
    if (popupOk)
    {
        TInt Sel = list->CurrentItemIndex();
        if (Sel >= 0 && Sel < ItemArray->MdcaCount())
        {
            aSelected.Copy(ItemArray->MdcaPoint(Sel));
        }
    }

    CleanupStack::Pop();            // popuplist
    CleanupStack::PopAndDestroy(1); // list
}