Como atualizar calendario com data atual ?

Delphi

31/05/2015

Tenho um calendario, mais ele só fica no mês que eu adicionei ele ao programa esse está no mês de abril ele abre tem algum metodo para que ele atualize conforme a data atual não a antiga de abril,mais a data de hoje ?
[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150531-175347.jpg[/img]
Maycon

Maycon

Curtidas 0

Respostas

Maycon

Maycon

31/05/2015

Depois de algumas Tentativas conseguir resolver o problema vai a solução ! fiz um tutorial porque todos os problemas que eu tenho fasso um documento e arquivo vai que esqueço futuramente rsrsrs

Adicione 1 TCalendar da aba Mist
[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150601-133041.jpg[/img]

Adicione 1 TTimer da aba system
[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150601-133130.jpg[/img]

Mude a proprieda name do Tcalendar para TimData
[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150601-133321%20%281%29.jpg[/img]


Mude a proprieda name do TTimer para timerData
[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150601-133257%20%281%29.jpg[/img]


De 2 clique no timerData e adicione o código
TimData.Date := ' '+datetostr(date);// para TimDataa  
GOSTEI 0
Marcos Saffran

Marcos Saffran

31/05/2015

Olá Maycon,

você também pode inserir no evento onshow do seu formulário o seguinte código:

TCalendar.date := Now;
GOSTEI 0
Felippe Tadeu

Felippe Tadeu

31/05/2015

Olá Maycon,

você também pode inserir no evento onshow do seu formulário o seguinte código:

TCalendar.date := Now;


Ao invés de Now passe Date

TCalendar.date := Date;
GOSTEI 0
Felippe Tadeu

Felippe Tadeu

31/05/2015

Depois de algumas Tentativas conseguir resolver o problema vai a solução ! fiz um tutorial porque todos os problemas que eu tenho fasso um documento e arquivo vai que esqueço futuramente rsrsrs

Adicione 1 TCalendar da aba Mist
[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150601-133041.jpg[/img]

Adicione 1 TTimer da aba system
[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150601-133130.jpg[/img]

Mude a proprieda name do Tcalendar para TimData
[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150601-133321%20%281%29.jpg[/img]


Mude a proprieda name do TTimer para timerData
[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150601-133257%20%281%29.jpg[/img]


De 2 clique no timerData e adicione o código
TimData.Date := ' '+datetostr(date);// para TimDataa  



Seria interessante isso caso alguém virasse o dia usando a aplicação, caso contrário está desperdiçando processamento.

Cuidado.
GOSTEI 0
POSTAR