botao

[Alain da Silva]

boa tarde pessoal, preciso criar 100 botões.

dessa forma é possível saber qual botão clicou ou existe outra maneira de se criar com mais facilidade

  FOR NID := 102 TO 201
     NBT:=1
     REDEFINE SBUTTON OBOTAOM[NBT] ID NID ;
              ACTION  * * * * SBER QUAL BOTÃO CLICOU * * *
              TOOLTIP "Clique aqui para efetuar vendas por telefone" ;
              COLORS PRETO,CORTABELA;
              FONT FNORMAL;
              OFFICE OF DLGVEN
     NBT+=1
  NEXT NID

[sambomb]

Crie uma função para isso...

   For i := 1 TO 100
      CriaBotao(i)
   End
   
Procedure CriaBotao( nCont )

   REDEFINE SBUTTON    OBOTAOM[nCont];
            ID         (nCont+101); //-- 101 + 1 = 102 até 101 + 100 = 201
            ACTION     Botao(nCont)
            TOOLTIP    "Clique aqui para efetuar vendas por telefone" ;
            COLORS     PRETO,CORTABELA;
            FONT       FNORMAL;
            OFFICE;
            OF       DLGVEN
            
Return

Procedure Botao( nCont )
   
   ? "Botão pressionado foi o : " + Str( nCont )
   
Return            

[Alain da Silva]

obrigado sambomb, era isso mesmo.