Fórum loucura com atalhos de botões #266132

20/01/2005

0

Saudações

Estou com o seguinte problema se tenho botões com o caption definidos como &Cancelar, &Salvar, &Excluir, &Incluir

Ao pressionar a Letra que sucede ao & o sistema o executa sem ser necessário pressionar a tecla ALT, Ex.: se pressionar a tecla C é executado o evento onclick do botão com o caption = &Cancelar

Desde já agradeço pela atenção


Steve_narancic

Steve_narancic

Responder

Posts

20/01/2005

Reginaldo174

Em FormKeyDown coloque:

Case key of
67 : Botao_Cancelar.click;
83 : Botao_Salvar.click;
69 : Botao_Excluir.click;
73 : Botao_Incluir.click;
end;

mude a propriedade Keypreview para true.


Responder

Gostei + 0

20/01/2005

Steve_narancic

Acho que não me expressei bem, o que está acontecendo é que não está sendo necessário pressionar a tecla Alt+Letra, basta pressionar a do botão que está sublinhada e ele executa o comando.


Responder

Gostei + 0

20/01/2005

Eixox

Isso não é loucura nenhuma. Quando o foco está sobre botões e qualquer outro componente que não seja de edição tipo Edit você não precisará pressionar a tecla ALT. Isso é normal.


Responder

Gostei + 0

20/01/2005

Steve_narancic

Obrigado,

mas por acaso existe como desativar este recurso.


Responder

Gostei + 0

20/01/2005

Paulo_amorim

Olá

Pode-se tentar...
Coloque KeyPreview do Form para true

No OnKeyDown, existe o parâmetro Shift
Teste se:

-Ele apertou uma letra do alfabeto: in [´A´..´Z´]
-O foco não está em um Edit, Memo ou o que vc tiver na tela
-O Alt não está apertado not(ssAlt in Shift)
Se satisfizer tudo isso, Key := 0;

Espero que ajude
Até+


Responder

Gostei + 0

20/01/2005

Steve_narancic

valeu!!!

não sei como não tinha pensado nisto antes, muito obrigado pelas dicas


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar