Tcalendar
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á!
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á!
Fernando_ramos
Curtidas 0
Respostas
Delphi32
06/03/2006
Para isso utilize o evento OnClick do componente:
t+!
Edit1.Text := FormatDateTime(´dd/mm/yyyy´,MonthCalendar1.Date);
t+!
GOSTEI 0
Fernando_ramos
06/03/2006
amigo.
grato pela atenção.
mas não é o componente MonthCalendar e sim o TCALENDAR da paleta SAMPLES.
obrigado e fico no aguardo!
grato pela atenção.
mas não é o componente MonthCalendar e sim o TCALENDAR da paleta SAMPLES.
obrigado e fico no aguardo!
GOSTEI 0
Paullsoftware
06/03/2006
tente assim:
os valores do TCalendar1 retornam com Inteiros... :wink:
Edit1.Text := IntToStr(Calendar1.Day)+´/´+IntToStr(Calendar1.Month)+´/´+IntToStr(Calendar1.Year);
os valores do TCalendar1 retornam com Inteiros... :wink:
GOSTEI 0
Fernando_ramos
06/03/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!
aproveitando a deixa...
é possivel eu formatar o resultado para ´dd/mm/yyyy´.
abraços!
GOSTEI 0
Techsoft
06/03/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:
faça:
formatdatetime(´dd/MM/yyyy´, strtodatetime(IntToStr(Calendar1.Day)+´/´+IntToStr(Calendar1.Month)+´/´+IntToStr(Calendar1.Year)));
GOSTEI 0
Fernando_ramos
06/03/2006
amigo.
Funcionou legal!
abraços!
Funcionou legal!
abraços!
GOSTEI 0