Fórum Rotina para ativar agenda na data e hora desejada #349351

Se você colocar um timer no programa, no ontime dele você pode mandar fazer qualquer coisa, basta fazer uma verificação com o banco de dados da agenda e fazer comparação. Faça um intervalo de 1 min. e dê uma olhada no banco da agenda

Caro Colega,

Coloquei o código abaixo, funcionou legal, mas o DBGrid que recebe os dados da tabela entrou em loop.
O que fiz de errado?

procedure TtelaPrincipal.localizaAlgumCompromisso(Sender: TObject);

begin
Form1.Table1.open;
form1.Table1.First;
while not(form1.Table1.Eof) do begin

IF (Form1.Table1.FieldByName(´Data´).AsString=DateToStr(Date))and(Form1.Table1.FieldByName(´Hora´).AsString=Timetostr(time)) then begin
form1.Show;
end;
form1.table1.next;

end;

end;