 |
ActiveDelphi .: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
eduardoserrao Novato


Registrado: Segunda-Feira, 28 de Novembro de 2016 Mensagens: 78
|
Enviada: Qui Fev 16, 2017 10:13 am Assunto: Desabilitar clique do botão quando tiver arrastando o scroll |
|
|
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 |
|
 |
can1n Novato

Registrado: Segunda-Feira, 10 de Abril de 2017 Mensagens: 2
|
Enviada: Seg Abr 10, 2017 9:00 am Assunto: |
|
|
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 |
|
 |
|
|
Enviar Mensagens Novas: Proibido. Responder Tópicos Proibido Editar Mensagens: Proibido. Excluir Mensagens: Proibido. Votar em Enquetes: Proibido.
|
|