TOTVSTEC

Árvore de páginas

Componente descontinuado e não suportado pelo SmartClient HTML

Cria um objeto do tipo múltiplos botões.

Hierarquia

Construtores

Propriedades

Métodos

Exemplos

Exemplo 1
  #include "TOTVS.CH"
  User Function TMultiBtn() 

  DEFINE DIALOG oDlg TITLE "Exemplo TMultiBtn" FROM 180,180 TO 550,700 PIXEL

   otMultiBtn := tMultiBtn():New( 01,01,'Titulo',oDlg,,200,150, 'Afastamento',0,'Mensagem',3 )
   otMultiBtn:SetFonts('Tahoma',16,'Tahoma',10) 
   otMultiBtn:AddButton('Opção 01')
   otMultiBtn:AddButton('Opção 02')
   otMultiBtn:AddButton('Opção 03')
   otMultiBtn:AddButton('Opção 04')
   otMultiBtn:AddButton('Opção 05')
   otMultiBtn:bAction := {|x,y|Alert("Click no botão: "+Str(y,1)) }

  ACTIVATE DIALOG oDlg CENTERED 
  Return

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server

  • Sem rótulos