| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
neg1414
Master
Registrado: 31 Ene 2007Mensajes: 284
|
 Publicado: Vie 03 Ene, 2014 12:54 pm Asunto: Crear Componente TTimer en Tiempo de Ejecucion |
 |
|
Buenas..
He creado un componente desde cero y quiero incluir un TTimer en tiempo de ejecucion..
Para ello he hecho lo siguiente
| Código: | __published: // IDE-managed Components
void __fastcall TimerTimer(TObject *Sender);
private: // User declarations
int Tiempo;
TTimer *Timer; |
| Código: |
__fastcall TComponente::TComponente(TComponent* Owner)
{
Timer = new TTimer(this);
this->Tiempo=0;
}
void __fastcall TComponente::TimerTimer(TObject *Sender)
{
this->Tiempo ++ // incrementamos el tiempo
if(this->Tiempo>5)
{
// EJECUTAR ACCION
}
|
En pricipio al Activar el componente no me da error pero al querer activar el timer mediante | Código: | Timer->Enabled = true |
no hace nada no ejecuta el procedimiento | Código: | TimerTimer(TObject *Sender) |
Alguien que me ayude Gracias.. |
|
| Volver arriba |
|
 |
escafandra
Master
Registrado: 29 Nov 2007Mensajes: 625Ubicación: Madrid - España
|
| Publicado: Vie 03 Ene, 2014 6:16 pm Asunto: |
|
|
En este ejemplo creo un Timer que ejecutará casa 500 milisegundos la función TimerTimer:
| Código: |
TTimer *Timer;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer = new TTimer(this);
Timer->OnTimer = TimerTimer;
Timer->Interval = 500;
Timer->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TimerTimer(TObject *Sender)
{
Beep();
}
//---------------------------------------------------------------------------
|
Saludos. |
|
| Volver arriba |
|
|
neg1414
Master
Registrado: 31 Ene 2007Mensajes: 284
|
| Publicado: Vie 03 Ene, 2014 6:48 pm Asunto: |
|
|
| Lo probare , Muchisimas Gracias Escafandra .... |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
