|
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;
|