SoloCodigo

Perdona pero he visto algun bichito en el código.

Te lo paso de nuevo:


Ahora creo que está bien

Efectivamente tienes que utilizar un objeto TTimer que sea visitado cada cierto tiempo, Si quieres ser muy exacto podría ponerle un intervalo de menos de un segundo, pero puedes ponerlo que se visite cada 5 segundos, por ejemplo (TTimer->Interval=5000).

create dos variables del formato de hora, existe gran canitidad de tipos de estas variables, una de ellas, que esta definida en "dos.h" es :

struct time {
   unsigned char ti_min;      /* minutes */
   unsigned char ti_hour;     /* hours */
   unsigned char ti_hund;     /* hundredths of seconds */
   unsigned char ti_sec;      /* seconds */
};

esta estrucutura es usada por funciones como :

void gettime(struct time *timep);
void settime(struct time *timep);

Create dos variables de este tipo, por ejemplo, HoraComienzo y HoraFin, que sean rellenadas en las dos funciones asociadas a los botones hora comienzo y hora final.

create una función que tendrás que asociar al evento OnTimer del Objeto TTimer, que es la que va a comparar la hora actual con estos dos variables:

FuncionXxx(){

struct time TActual;

GetTime (&TActual); // pilla la hora actual del sistema

// ---- a partir de aquí compara los datos TActual con los de HoraComienzo y HoraFin

..
..
..
}

Espero que te sirva.

La verdad es que no tengo idea de donde puedes encontrar información de este tema, yo me ayudo de un libro de Anaya multimedia llamado Programación en C++ Builder. Te doy los datos ya que es el libro es español, que yo conozca, que tiene la información más extensa sobre este y otros temas. Es para el Builder 1 pero te sirve para cualquier otra versión.

Nombre: Programación en C++ Builder (adquiera los fundamentos básicos de programación).
Editorial : Anaya Multimedia.
Autor: Francisco Charte.
ISBS : 84-415-0203-X

El problema es que es del 1997 y no sé si seguiran vendiéndolo.

De todas formas utilizar TTimer no es nada complicado:

Create un Objeto TTimer, bien insertandolo desde el editor (desde la pestaña System) o creandolo en tiempo de ejecucion.

El objeto tiene dos propiedades significativas.

Interval: Que determina cada cuantos milisegundo será visitado el objeto.
Enabled: Que activa y/o desactiva el objeto.

Tiene un sólo evento :

OnTimer: La función asociada a este evento será la que se ejecutará cada "Interval" milisegundos.

A partir de la función asociada a OnTimer puedes llamar a cualquier otra función o funciones del mismo programa. Las funciones que se ejecutan desde TTimer no tienen nada de especial, son funciones normales, solo tienen la salvedad de ser ejecutadas cada cierto tiempo.

Para activar/desactivar el objeto usa TTimer->Enabled=true o false.

Espero que te sirva.

Ahí van algunos códigos interesantes.

8= borrar.
13 = enter.
27 = Esc.
33= Repag.
34 = Avpag.
37 = flecha a la izquierda.
38 = fecha arriba.
39 = flecha a la derecha.


para saber cualquier tecla. imprime en modo int el valor de Key en la misma funcion OnKeyPress, por ejemplo con

ShowMessage ("La tecla tiene el valor :"+AnsiString((int)Key);

Tienes que activar el evento OnKeyUp del Edit

y así quedaría la función:


void __fastcall XXXX::Edit1KeyUp(TObject *Sender, WORD &Key,TShiftState Shift)
{
     char Cadena[200];
    strcpy (Cadena,ZRes->Text.c_str());
   if (Key=='+' || Key=='-'){
        if (strlen (Cadena)>0)
           Key=0; // solo deja los signos al principio
           else return;
    }else if (Key!='.' && Key!=','){ // admite el punto y la coma como comienzo del decimal
           char *p;
          p=strchr(Cadena,','); // busca una coma en el escrito
         Key=(p)?(char)0:','; // si hay una coma no admite otra
    }else{
       if (Key<'0' || Key>'9') // solo admite caracteres numericos
                 Key=0;
      }
}

Intentala y lo verás más claro

Alguien me puede indicar dónde puedo encontrar una descripción detallada del formato interno de textos en RTF.

Gracias

Creo que la solución que te ha dado nuestro colega no te va a servir, ya que mientras que esté en ejecución cualquier bucle (no solo el While) de tu programa los eventos de los diferente controles no están en activo, de hecho, el programa parecerá colgado y no hará nada.

Si deseas que un buque este en activo mientras que el usuario no pulse algún botón (me imagino que eso es lo que quieres), una de las soluciones es  incluir un objeto TTimer. Este objeto activa una hilo paralelo de ejecución que es visitado cada cierto tiempo.  A partir de este objeto se puede ejecutar cualquier función para hacer lo que sea. Lo bueno de este objeto es que no para la ejecución del hilo principal del programa y los eventos de los controles estarán en activo. De esta forma puedes usar una variable bool que se active cuando pulses el botón deseado. Sólo tienes que consultar esta variable en la función o funciones asociadas al hilo de ejecución generado por TTimer....., y ya lo tienes.

Revisa la información de TTimer, puede ser la solución.