Buscar por:

Aperfeiçoamento do componente monthcalendar

Código

{O delphi disponibiliza um componente de calendário localizado na guia Win32, chamado de MonthCalendar.

Este componente possui uma propriedade chamada date, cuja função é exibir a data atual (registrada no sistema do computador). o problema é que esta propriedade fica ancorada com a data de criação do componente, ou seja, se você inserir um componente MonthCalendar em 16/07/2002 em uma janela, sua data ficará fixada em 16/07/2002, independentemente de qual seja a data em que você estiver executando o programa.

Para resolver isto, insira na propriedade onActivate da janela do seu calendário, o código abaixo:}

calendario.showmodal;

{no final terá que ficar assim:}

procedure TCalendario.FormActivate(sender: TObject);

begin

    monthCalendar1.Date:= Date;

end;

{No seu programa, o trecho após procedure pode estar diferente devido aos nomes que por ventura você tenha dado. Preocupe-se apenas em inserir o trecho monthCalendar1.Date:= Date;}