Delphi - ayuda con agenda con alarma

   
Vista:

ayuda con agenda con alarma

Publicado por dralion (40 intervenciones) el 18/04/2008 16:20:04
hola amigos una consulta estoy tratando de hacer una agenda con alarma, los datos me los guarda en unatabla paradox 7, la alrama funciona solo que me muestra la alarma solo si estoy viendo justo el registro que ingrese con la hora de la alarma cuando no estoy viendo el registro y pasa la hora de la alrma no me lo muestra aca dejo el codigo para que me corrijan gracias

este codigo esta en el timer

procedure TForm1.Timer1Timer(Sender: TObject);
var
ShortDateTimeFormat : string;
time:string;
const
aDia : array[1..7] of string =
('Domingo','Lunes','Martes','Miércoles','Jueves','Viernes','Sábado');
begin
ShortDateTimeFormat := 'hh:mm';
if Copy(TimeToStr(Now),3,1) = ':' then
Label1.Caption := Copy(TimeToStr(Now),1,5)
else
Label1.Caption := Copy(TimeToStr(Now),1,4);
Label7.Caption := aDia[DayOfWeek(date)];
Label8.Caption := FormatDateTime('d "de "mmmm "de "yyyy',DATE);
time:= TimeToStr (now);
if form1.Table1.Fields[2].AsString =time then
showmessage('Alarma');
end;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder