import.css=/download/attachments/6062824/tecnologia.css |
Cria um objeto do tipo caixa de seleção (ComboBox). Este controle permite a entrada de dados de múltipla escolha através dos itens definidos em uma lista vertical. Essa lista pode ser acessada ao pressionar a tecla F4 ou pelo botão à direita do controle.
user function exemplo()
Local aItems:= {'Item1','Item2','Item3'}
DEFINE DIALOG oDlg TITLE "Exemplo TComboBox" FROM 180,180 TO 550,700 PIXEL
// Usando New
cCombo1:= aItems[1]
oCombo1 := TComboBox():New(02,02,{|u|if(PCount()>0,cCombo1:=u,cCombo1)},;
aItems,100,20,oDlg,,{||Alert('Mudou item da combo')};
,,,,.T.,,,,,,,,,'cCombo1')
// Usando Create
cCombo2:= aItems[2]
oCombo2 := TComboBox():Create(oDlg,{|u|if(PCount()>0,cCombo2:=u,cCombo2)},22,02,;
aItems,100,20,,{||Alert('Mudou item da combo')},,,,.T.,;
,,,,,,,,'cCombo2')
ACTIVATE DIALOG oDlg CENTERED
return
|
Advanced Protheus 6.09, Advanced Protheus 7.10, Microsiga Protheus 8.11, Protheus 10, TOTVS Application Server 10, TOTVS Application Server 11