FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#10
|
||||
|
||||
no se hacerloca da seguno automaticamente el timer lo hace, pues un timer lo tengo enlzadado a un label para que muestre la hora de esta manera:
procedure TForm11.Timer1Timer(Sender: TObject); begin label8.Caption:=timetostr(time); label4.Caption:=datetostr(date); end; El segundo label es para la hora. Y el segundo timer tengo este codigo, pero quiero que lo ejecute cada 5 minutos, de hecho no he encontrado como manejar eso de los intervalos. procedure TForm11.Timer2Timer(Sender: TObject); begin datamodule.DataModule1.Agenda3.SQL.Text:='select * from agenda where hora=(:valor) and fecha=(:valor2)'; datamodule.DataModule1.Agenda3.Params[0].Value:=label8.Caption; datamodule.DataModule1.Agenda3.Params[1].Value:=label4.Caption; datamodule.DataModule1.Agenda3.Open; if label8.Caption = dbedit1.Text then begin showmessage('Tarea pendiente'); end; end; procedure TForm11.Edit9KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin bitbtn3.SetFocus; end; end; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Lectura continua de Archivo | friendspark | API de Windows | 2 | 02-02-2006 16:27:52 |
Mendocino: continúa la dupla SAP-Microsoft | marcoszorrilla | Noticias | 0 | 28-04-2005 22:18:05 |
Reproduccion continua de un video avi | alexmucho | C++ Builder | 1 | 09-09-2004 11:58:21 |
Impresion continua de los campos de una tabla? | tayra | Impresión | 11 | 03-06-2004 21:15:41 |
el problema continua! | merlin | Impresión | 1 | 15-01-2004 15:01:18 |
|