Habe die Frage, löschen aller XbpPushbuttons nachdem einer ausgewählt wurde. Wie kann ich sowas realisieren?
Bei meiner Lösung lösche ich immer nur den gewählten.
Code: Alles auswählen
LOCAL oBtn, nEvent, mp1, mp2, oXbp
oBtn := XbpPushButton():new(,, {10,20}, {200,40} )
oBtn:caption := " Daten ins Netz übertragen "
oBtn:activate := {|| DatenAnfuegen(),DbfSicher(),NeuIndex(),Loeschen(),;
oBtn:destroy(),PostAppEvent( xbeP_Quit ) }
oBtn:create()
oBtn:show()
oBtn := XbpPushButton():new(,, {400,20}, {200,40} )
oBtn:caption := " Daten nicht übertragen "
oBtn:activate := {|| oBtn:destroy(),PostAppEvent( xbeP_Quit ) }
oBtn:create()
oBtn:show()
SetMouse( .T. ) // activate mouse events
nEvent := xbe_None
// terminate program with the
DO WHILE nEvent <> xbeP_Quit // event xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp, 0 )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO