Tcalendar

Question

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 ...

Delphi32 · Answer

Para isso utilize o evento OnClick do componente:[code:1:7497879fda]   Edit1.Text := FormatDateTime(�dd/mm/yyyy�,MonthCalendar1.Date);[/code:1:7497879fda]t+!...

Fernando_ramos · Answer

amigo.grato pela aten��o.mas n�o � o componente MonthCalendar e sim o TCALENDAR da paleta SAMPLES.obrigado e fico no aguardo!...

Paullsoftware · Answer

tente assim:[code:1:8267811232]Edit1.Text := IntToStr(Calendar1.Day)+�/�+IntToStr(Calendar1.Month)+�/�+IntToStr(Calendar1.Year);[/code:1:8267811232]os valores do TCalendar1 retornam com Inteiros...  :wink:...

Fernando_ramos · Answer

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 · Answer

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

fa�a:

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

Fernando_ramos · Answer

amigo.Funcionou legal!abra�os!...