tComboBox():New(052,008,{|u|if(PCount()>0,cTipo:=u,cTipo)},aTipo,070,008,oDlg1,, ,,,,.T.,,,,,,,,,'cTipo')
Private lReadOnly := .T. If ('.20' $ cUserName) lReadOnly := .F. Endif
tComboBox():New(052,008,{|u|if(PCount()>0,cTipo:=u,cTipo)},aTipo,070,008,oDlg1,, ,,,,.T.,,,,,,,,,'cTipo')
Private lReadOnly := .T. If ('.20' $ cUserName) lReadOnly := .F. Endif
Boa tarde!
Você pode desabilitar a edição do TComboBox ao usar o método Disable.
Exemplo:
oCombo := tComboBox():New(052,008,{|u|if(PCount()>0,cTipo:=u,cTipo)},aTipo,070,008,oDlg1,, ,,,,.T.,,,,,,,,,'cTipo')
oCombo:Disable()
Observação: qualquer componente que herde das classes TSrvObject/TControl também podem ter sua exibição desabilitada ao usar este método. Exemplos: TGet, TButton.
Giodano , seria possivel deixar habilitado para um grupo de username e outros não?
— AlexandreRJ 23 de Aug de 2022