Veja nesta dica como criar um calendário bastante simples, explorando o componente TMonthCalendar
Crie um novo formulário em sua ara de trabalho(file > new > form).
Altere suas propriedades de acordo com a tabela seguinte:
Propriedade Valor
BordeStyle bsDialog
Caption Calendário
Color clBtnFace
Font.Name Arial
Font.Size 7
FormStyle fsNormal
Height 437
Name Calendario
Position poScreenCenter
Width 703
Insira no formulário do calendário um componente monthcalendar localizado na paleta win32.
Ajuste suas propriedades para:
Propriedade Valor
Aling alClient
WeekNumbers True (exibe o numero das semanas)
Caso seja necessario, ajuste a altura e largura da janela até que o calendário apresente os 12 meses.
O componente MonthCalendar possui a propriedade chamada Date, cuja função é definir a data a ser exibida. O problema é que esta propriedade fica ancorada com a data de criação do componente, ou seja, se você o inserir em um form em 16/12/08, sua data ficará fixada em 16/12/08, independente de qual seja a data em que você estiver executando o programa. Para resolver este problema, insira no evento onActivate da janela calendário:
procedure TCalendario.FormActive(Sender: TObject);
begin
MONTHCALENDAR1.DATE := DATE;
end;
Pressione F9 e veja o resultado.
Você também pode personalizar seu calendário através da propriedade CalColors. Se puder usar um form com uma maior extensão para visualização, sugiro a fonte arial 8 em negrito. Fica perfeito.
Crie um novo formulário em sua ara de trabalho(file > new > form).
Altere suas propriedades de acordo com a tabela seguinte:
Propriedade Valor
BordeStyle bsDialog
Caption Calendário
Color clBtnFace
Font.Name Arial
Font.Size 7
FormStyle fsNormal
Height 437
Name Calendario
Position poScreenCenter
Width 703
Insira no formulário do calendário um componente monthcalendar localizado na paleta win32.
Ajuste suas propriedades para:
Propriedade Valor
Aling alClient
WeekNumbers True (exibe o numero das semanas)
Caso seja necessario, ajuste a altura e largura da janela até que o calendário apresente os 12 meses.
O componente MonthCalendar possui a propriedade chamada Date, cuja função é definir a data a ser exibida. O problema é que esta propriedade fica ancorada com a data de criação do componente, ou seja, se você o inserir em um form em 16/12/08, sua data ficará fixada em 16/12/08, independente de qual seja a data em que você estiver executando o programa. Para resolver este problema, insira no evento onActivate da janela calendário:
procedure TCalendario.FormActive(Sender: TObject);
begin
MONTHCALENDAR1.DATE := DATE;
end;
Pressione F9 e veja o resultado.
Você também pode personalizar seu calendário através da propriedade CalColors. Se puder usar um form com uma maior extensão para visualização, sugiro a fonte arial 8 em negrito. Fica perfeito.
