Club Builder

[Iñigo]

Gracias, Roberto.
Exactamente lo que me pasa es que tengo que recibir datos por el puerto serie. Para ello utilizo una serie de componentes, entre los que está un Led, que se ilumina cuando se reciben los datos. Sin embargo como los datos a recibir son pocos, no se aprecia que el led se encienda, por lo que pretendo que este esté encendido al menos un segundo. Intente asignar directamente un bitmap y cambiarlo a pelo, con la ayuda de un timer y no me va. Por eso empleaba el sleep. No se si la solución que me das tu es la adecuada pues el bucle debe ser desde 0 hasta 2000000 para obtener los resultados esperados.

Gracias

[R. Porcar]

Pues para lo que ibas a hacer, un timer parece buena idea.

Para probar, pon un botón y un timer en un form vacio, y haz esto:

En las propiedades del timer, pon Enabled a false, y el intervalo a 1000ms.

En el evento onclick del botón...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled=true;
Button1->Caption="ENCENDIDO";
}

Y en el OnTimer:

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Button1->Caption="APAGADO";
Timer1->Enabled=false;
}

Suerte.

Roberto Porcar
Club Builder