Alain da Silva Posted August 20, 2014 Report Share Posted August 20, 2014 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 Quote Link to comment Share on other sites More sharing options...
sambomb Posted August 20, 2014 Report Share Posted August 20, 2014 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 Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted August 21, 2014 Author Report Share Posted August 21, 2014 obrigado sambomb, era isso mesmo. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.