Array
(
)

Tcalendar

Fernando_ramos
   - 06 mar 2006

Amigos,

Boa tarde.

Estou usando o Tcalendar e gostaria de uma ajuda de vcs.
O meu objetivo é, ao dar dois cliques no dia do Tcalendar ele me retornar em um Tedit o dia, mes e ano.

Deu uma procurada e não encontrei muita referencia a este componente!

obrigado desde já!


Delphi32
   - 06 mar 2006

Para isso utilize o evento OnClick do componente:

#Código


Edit1.Text := FormatDateTime(´dd/mm/yyyy´,MonthCalendar1.Date);


t+!


Fernando_ramos
   - 06 mar 2006

amigo.

grato pela atenção.
mas não é o componente MonthCalendar e sim o TCALENDAR da paleta SAMPLES.

obrigado e fico no aguardo!


Paullsoftware
   - 06 mar 2006

tente assim:
#Código

Edit1.Text := IntToStr(Calendar1.Day)+´/´+IntToStr(Calendar1.Month)+´/´+IntToStr(Calendar1.Year);

os valores do TCalendar1 retornam com Inteiros... :wink:


Fernando_ramos
   - 06 mar 2006

funcionou legal, eu tinha feito a mesma coisa só que ao inves de inteiro eu coloquei como data datetostr(), ai nao funcionava.

aproveitando a deixa...

é possivel eu formatar o resultado para ´dd/mm/yyyy´.


abraços!


Techsoft
   - 06 mar 2006

Bom amigo, não testei mas adaptando o q foi escrito nas respostas acima... fazendo akilo tu vai ter um string certo...

faça:
#Código


formatdatetime(´dd/MM/yyyy´,
strtodatetime(IntToStr(Calendar1.Day)+´/´+IntToStr(Calendar1.Month)+´/´+IntToStr(Calendar1.Year)));



Fernando_ramos
   - 07 mar 2006

amigo.

Funcionou legal!

abraços!