FiveTech Support Forums

Creo que si usas una Var public que al hacer click en el boton tome el valor de la posicion del boton en el array, podrias saber que boton se presiono, algo como nBoton = aBtn[n] al momento de hacer click antes de ejecutar la accion, es una idea a vuelo de pajaro terrestre, saludos...

Verhoven wrote:En un dialogo genero un número de botones (BTNBMP) mediante código que es variable. Aquí dejo el código:

Code (fw): Select all Collapse

 
 DEFINE DIALOG oDlg FROM 5,10 TO 32, 85 FONT oFontDoble TITLE "Selección posición"  
    
    @ 1,1 SAY oSay VAR cSAy OF oDlg FONT oFontDobleN
    
    for i=1 TO nNumBotones
      // Botón para hacer una nueva venta.
      
      if i <= 4
         @ 40,20+65*(i-1) BTNBMP oBtnPosicion[i] OF oDlg;   //@ y , x
               ACTION ( nPosicionEs= *******, oDlg:end() );
               SIZE 50,38 pixel; // Ancho, Alto                                 
               UPDATE
               oBtnPosicion[i]:SetFile(RutaExe+"\"+ltrim(str(i))+".bmp")
        else
         @ 40+52,20+65*(i-1-4) BTNBMP oBtnPosicion[i] OF oDlg;   //@ y , x
               ACTION ( nPosicionEs= ******* ,oDlg:end());
               SIZE 50,38 pixel; // Ancho, Alto                                 
               UPDATE
               oBtnPosicion[i]:SetFile(RutaExe+"\"+ltrim(str(i))+".bmp")
      endif
    next i       

    @ 150,20 BTNBMP oBtnCancelar OF oDlg MESSAGE 'SALIR' SIZE 90,30; //ancho x alto
               ACTION (oDlg:end()) default CANCEL
               oBtnCancelar:SetFile(RutaExe+"\CANCELAR.bmp")
               
 ACTIVATE DIALOG oDlg CENTER

Me pita bien los botones pero no logro descubrir la manera de averiguar cual es el botón que ha hecho click el usuario. Es decir, en la parte del código donde pongo nPosicionEs= *******, no sé qué debo de poner.

.../...

 DEFINE DIALOG oDlg FROM 5,10 TO 32, 85 FONT oFontDoble TITLE "Selección posición"
   For x = 1 to 10
   @ 110, 2+(x-1)*30 BUTTON aBotones[x] PROMPT "Btn"+StrZero(x,2) oF oDlg ;
      SIZE 20, 10 PIXEL ; 
      FONT oFont 
      aBotones[ x ]:bAction := HazBlock(x)
   Next x

 ACTIVATE DIALOG oDlg CENTER
Return nil

//---------------------------------------------------------------------------//

Function HazBlock( x )
Return &("{ || Pon(" +LTrim(Str(x))+") }" )

//---------------------------------------------------------------------------//

Function Pon( x )
nPosicionEs := x
MsgInfo( nPosicionEs )
//oDlg:End()     // oDlg -> Variable estática
Return nil

//---------------------------------------------------------------------------//

Muchas Gracias.
Ha funcionado correctamente, si bien, no ha sido necesario declarar como estáticas esas dos variables que señalas.

Verhoven wrote:Muchas Gracias.
Ha funcionado correctamente, si bien, no ha sido necesario declarar como estáticas esas dos variables que señalas.

public