Visualizacion por dia.

[ecfisa]

Hola.

No conocía los componentes TDbf, pero leí un poco la documentación que está en sourceforge ( TDbf Manual ) y aparentemente podrías aplicar la propiedad Filter para hacer lo que buscas.

Algo como:

Código Delphi [-]
procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  Dbf1.Filtered:= False;
  Dbf1.Filter:= 'CAMPO_FECHA =' + QuotedStr(DateToStr(MonthCalendar1.Date));
  Dbf1.Filtered:= True;
end;

Como lo desconozco, busqué también si Lazarus posee las funciones QuotedStr y DateToStr y según leí están soportadas, por lo que creo que el código de arriba debería funcionar.

Para desactivar el filtro y mostrar todos los datos nuevamente:

Código Delphi [-]
...
begin
  Dbf1.Filtered:= False;
end;

Saludos.