TListBox

#INCLUDE "TOTVS.CH"

USER FUNCTION TListBox()
    DEFINE DIALOG oDlg TITLE "Exemplo TListBox" FROM 180,180 TO 550,700 PIXEL
        aItems := {'Item 1','Item 2','Item 3','Item 4'}
        nList := 1

        // Usando o New
        oList1 := TListBox():New(001,001,{|u|if(Pcount()>0,nList:=u,nList)},aItems,100,100,;
                                 {||Alert("Mudou de linha")},oDlg,,,,.T.)

        // Usando o Create
        oList2 := TListBox():Create(oDlg,001,110,{|u|if(Pcount()>0,nList:=u,nList)},;
                                    aItems,100,100,,,,,.T.)
    ACTIVATE DIALOG oDlg CENTERED
RETURN