ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Mudar foco automaticamente DateTimePicker

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
renanbg
Colaborador
Colaborador


Registrado: Quinta-Feira, 12 de Abril de 2012
Mensagens: 1158

MensagemEnviada: Ter Jul 18, 2017 10:56 am    Assunto: Mudar foco automaticamente DateTimePicker Responder com Citação

Pessoal, hoje para navegar dentro do datetimepicker uso esse codigo

Código:


  if not(TDateTimePicker(Sender).DroppedDown) then
     keybd_event(39, 0, 0, 0);


Gostaria de passar o setfocus automaticamente para o proximo campo, assim que eu digitar o ano.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
renanbg
Colaborador
Colaborador


Registrado: Quinta-Feira, 12 de Abril de 2012
Mensagens: 1158

MensagemEnviada: Qua Jul 19, 2017 11:37 am    Assunto: Responder com Citação

será que não tem como?
tentei pelo tamanho do campo, mas não está dando certo.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
natanbh1
Colaborador
Colaborador


Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG

MensagemEnviada: Qui Jul 20, 2017 10:59 am    Assunto: Responder com Citação

O código abaixo move o foco para o próximo Edit quando o tamanho máximo de caracteres foi alcançado.

Uso este código em componentes TCustomEdit(Edit, DBEdit, etc) no evento OnChange:

Código:
 if Sender is TEdit then
    with Sender as TEdit do
      if MaxLength = GetTextLen then
        Self.SelectNext(TCustomEdit(Sender), True, True);

Tentei adaptar para o DateTimePicker sem sucesso, devido ao componente já vir com a data preenchida e funcionar sem a propriedade MaxLength.
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
renanbg
Colaborador
Colaborador


Registrado: Quinta-Feira, 12 de Abril de 2012
Mensagens: 1158

MensagemEnviada: Sex Jul 21, 2017 8:11 am    Assunto: Responder com Citação

Pois é, também não achei uma forma de fazer.

obrigado pela dica.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB