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 

Desabilitar clique do botão quando tiver arrastando o scroll

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Mobile com Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
eduardoserrao
Novato
Novato


Registrado: Segunda-Feira, 28 de Novembro de 2016
Mensagens: 78

MensagemEnviada: Qui Fev 16, 2017 10:13 am    Assunto: Desabilitar clique do botão quando tiver arrastando o scroll Responder com Citação

Bom dia pessoal,
Tenho um THorzScrollBox dentro do meu formulário, e no OnCreate dele estou fazendo a chamada de um método que adiciona botões no meu componente.
O problema é que quando arrasto, meus botoes estão sendo acionados, como poderia 'desabilitar' o clique nos botões quando estiver arrastando o scroll?
Código:

  while not Fmserver.cdgrupo.Eof do begin
    btn := TButton.Create(HorzScrollBox1);
    btn.Align := TAlignLayout.Left;
    btn.Width := 100;
    btn.Margins.Top := 10;
    btn.Margins.Bottom := 10;
    if Fmserver.cdgrupo.RecNo = 1 then begin
      btn.Margins.Left := 10;
    end;
    btn.Margins.Right := 10;
    btn.Text := Fmserver.cdgrupoGRUPA60DESCR.AsString;
    btn.OnClick := Click;
    HorzScrollBox1.AddObject(btn);
    Fmserver.cdgrupo.Next;
  end;


Abraços
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
can1n
Novato
Novato


Registrado: Segunda-Feira, 10 de Abril de 2017
Mensagens: 2

MensagemEnviada: Seg Abr 10, 2017 9:00 am    Assunto: Responder com Citação

estava com esse problema, voce tem que desabilitar o canfocus de todos os componentes que estiverem dentro do formulario, depois no onclick de cada um deles, voce seta para true o canfocus e da um setfocus no mesmo, no onExit voce desabilita o canfocus novamente para poder voltar a rolar a tela...
como eu tinha cerca de 13 edits dentro de um listbox entao criei uma funcao para setar automaticamente no onCreate do meu formulario, todos os onclick e onexit de cada edit...
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 -> Mobile com 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