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.