¿Como puedo hacer saltos entre rutinas de botones??? (Que trabajo me esta costando...

[gerardorom]

Bueno, hay pone codigo delphy, pero es en builder, es que solo he encontrado eso...

[[Lepe]]

Pues vas a tener que incluir una línea de código, lástima que tenga que arruinar tu eficiente código.

Código Delphi [-]
if(buf1)
               {
                 fwrite(buffer1,(cab.bpm/8),tambuffer,fich2);
                 waveOutWrite(hwo,&bufferinf1,sizeof(bufferinf1));
                  while(waveOutUnprepareHeader( hwo,&bufferinf2,sizeof(bufferinf2)) == WAVERR_STILLPLAYING)
                  {
Application -> ProcessMessages
                  }
               }
              else
               {
                   fwrite(buffer2,(cab.bpm/8),tambuffer,fich2);
                 waveOutWrite(hwo,&bufferinf2,sizeof(bufferinf2));
                  while(waveOutUnprepareHeader( hwo,&bufferinf1,sizeof(bufferinf1)) == WAVERR_STILLPLAYING)
                  {
Application -> ProcessMessages
                  }
               };

Eso hará que tu programa "respire" y permita procesar los mensajes que tenga en la cola de espera, tales como:
- movimientos de ratón
- Pulsaciones de teclas
- Pulsaciones de botones
- o sea, todo

Saludos

[gerardorom]

jajajajaj si hay que arruinar el codigo, se arruina sin problemas!! Muchisimas gracias "lepe", voy aprobarlo y ya comentare los resultados. Recibir ayuda un viernes alas 23.00 se agradece...

[gerardorom]

mmm pero acabo de caer en una cosa... con esto conseguire salir de mi rutina "PLAY" a , por ejemplo, la de "PAUSE", pero... ¿como hago para volver despues al punto donde se "salió" para continuar la reproducción por donde se quedó?

Bueno , voy hacer pruebas y ya comentare los resultados.

¡¡Gracias de nuevo!!

[gerardorom]

funciona!!!! Solo falta depurarlo un poco mas... Mil gracias lepe, de verdad, me estais sirviendo de mucha ayuda.

[[Lepe]]

Lo que de verdad se arruinó fueron los planes que tenía para el viernes noche... así que, a falta de pan.... .

Saludos