Calendario
Boa Noite,
Somos de uma escola tecnica.
Estamos fazendo um sistema cujo nome é ´Spa Hamma´
Queremos mostrar o calendario ao clicar na edit
já pesquisamos mas não achamos.
Por favor nos ajudem
Obs:.
Um exemplo do que queremos fazer é o calendario para reservas de voos no site da TAM
Somos de uma escola tecnica.
Estamos fazendo um sistema cujo nome é ´Spa Hamma´
Queremos mostrar o calendario ao clicar na edit
já pesquisamos mas não achamos.
Por favor nos ajudem
Obs:.
Um exemplo do que queremos fazer é o calendario para reservas de voos no site da TAM
Spahamma
Curtidas 0
Melhor post
Guilherme Wiethaus
14/06/2013
Não quebrem a cabeça meus queridos...não precisa reinventar a roda, embora é gostoso fazer isto, mas se quer agilidade e rapidez, procure usar o TJvDateEdit do grupo de componentes JVCL (Jedi Projects). Vai encontrar algo até melhor que o TDateTimePicker (tem a desvantagem de não poder limpar seus dados facilmente, precisa recorrer a códigos mais elaborados).
Abraços
Abraços
GOSTEI 1
Mais Respostas
Walter Faria
26/08/2008
Eai blz?
Tenta desta maneira, qualquer coisa manda post novamente.
cria uma tela da maneira q vc queira ( mostrar o calendario ) salve com nome ( exemplo - > fmSetaData ). depois use o seuinte codigo
procedure Tform1.BuscaData( Campo : TEdit );
Var
BuscaDatas : TfmSetaData;
begin
BuscaDatas:=TfmSetaData.Cria(Self, ´Data´);
if (BuscaDatas.ShowModal = mrOK) Then
Begin
Campo.Text := FormatDateTime(ShortDateFormat, BuscaDatas.Calendar.Date);
End;
BuscaDatas.Free;
end;
no evento ONKEYPRESS do edit , adicione o seguinte CODIGO:
BuscaData((Sender as TEdit));
Key:=#0;
Tenta desta maneira, qualquer coisa manda post novamente.
cria uma tela da maneira q vc queira ( mostrar o calendario ) salve com nome ( exemplo - > fmSetaData ). depois use o seuinte codigo
procedure Tform1.BuscaData( Campo : TEdit );
Var
BuscaDatas : TfmSetaData;
begin
BuscaDatas:=TfmSetaData.Cria(Self, ´Data´);
if (BuscaDatas.ShowModal = mrOK) Then
Begin
Campo.Text := FormatDateTime(ShortDateFormat, BuscaDatas.Calendar.Date);
End;
BuscaDatas.Free;
end;
no evento ONKEYPRESS do edit , adicione o seguinte CODIGO:
BuscaData((Sender as TEdit));
Key:=#0;
GOSTEI 0
Jarabeucp
26/08/2008
Amigo se eu entedi bem o que vc ta querendo, vc ta querendo clikar em um component Edit e ele te exibir um calendário é isso?
amigo esse componente Edit pode ser substituido por outro componente xamado de [b:c1565153db]DateTimePicker[/b:c1565153db] da paleta Win32.
se consegui entender teu penssamento esse componente irá resolver teu problema
se não for isso então seje mais claro ok!!
espero t ajudado.
amigo esse componente Edit pode ser substituido por outro componente xamado de [b:c1565153db]DateTimePicker[/b:c1565153db] da paleta Win32.
se consegui entender teu penssamento esse componente irá resolver teu problema
se não for isso então seje mais claro ok!!
espero t ajudado.
GOSTEI 0
Spahamma
26/08/2008
Caro Walter,
Fizemos o que nos sugeriu.....Mas ocorreram varios erros......pricpalmente em declaração de variaveis se você puder especificar melhor a primeira parte....e na parte do ´ONKEYPRESS´.
Obs:.
A principio é isso que queremos mesmo
Obrigado pela sua atenção.
Fizemos o que nos sugeriu.....Mas ocorreram varios erros......pricpalmente em declaração de variaveis se você puder especificar melhor a primeira parte....e na parte do ´ONKEYPRESS´.
Obs:.
A principio é isso que queremos mesmo
Obrigado pela sua atenção.
GOSTEI 0
Alisson Santos
26/08/2008
Sei que o tópico está antigo, mais para não criar outro gostaria de saber se alguém tem alguma maneira de fazer.
Pois preciso colocar um calendário dentro de um tedit.
Pois preciso colocar um calendário dentro de um tedit.
GOSTEI 0