Code: Select all
LOCAL OmbrxFila :=20
LOCAL FileOmbr := 6
totarray := OmbrxFila*FileOmbr
aBtn := Array(totarray)
Code: Select all
FOR k := 1 TO OmbrxFila
per ogni bottone ho associato un'azione diretta ad una funzione
Code: Select all
cAction := "miazione("+Str(n)+")"
bAction := {|| &cAction }
questo è il bottone creato ( ho usato tsbutton ma ho provato anche con il semplice button)
Code: Select all
@ Fila,(Col+nPassLarg) SBUTTON aBtn[n] RESOURCE cbitmap PIXEL;
OF oSpiaggia ;
FONT oFont2 ;
CAPTION cam ;
COLOR GetSysColor(13), GetSysColor(1) ;
TEXT ON_CENTER ;
NOBOX ;
TOOLTIP oemtoansi(cCaption) ;
ACTION Eval( bAction,cam )
La procedura mi visualizza tutti bottoni sui quali è stampato il numero
Se clicco su ogni bottone mi crea questo errore
Code: Select all
Application
===========
Path and name: C:\work\PRG\WINBEACH\PRENOTA.Exe (32 bits)
Size: 733,696 bytes
Time from start: 0 hours 0 mins 3 secs
Error occurred at: 19/07/2006, 18:31:03
Error description: Error BASE/1003 Variable does not exist: N
Stack Calls
===========
Called from: Spiaggia.prg => MIAZIONE(269)
Called from: => (b)BEA210(106)
Called from: Spiaggia.prg => (b)BEA210(160)
Called from: TSBUTTON.PRG => TSBUTTON:CLICK(804)
Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: TSBUTTON.PRG => TSBUTTON:HANDLEEVENT(1308)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: main.prg => MAIN(200)
nella funzione MIAZIONE ()
volevo sapere se cliccando sun un bottone mi deve restituire il numero del bottone
quindi
?aBtn[n]:ccaption
cCaption è il testo cioè la variabile cam ( che poi è il numero del bottone)
altrimenti come devo fare per restituirmi il numero del bottone ?
Grazie in anticipo