Como posso utilizar teclas CTRL ou Alt .......

Delphi

29/06/2004

Olá amigos,

estou necessitando de uma grande ajuda de vcs...tenho um form e neste form tenho um opção de ordenar a grid por codigo ou nome ( exemplo ) e ao ser precionado as teclas CTRL ele passe a ordernar pelo codigo e caso seja teclado Alt ele passe a ordernar pelo nome....sem ter que toda vez ir com o maouse e escolher umas das opção para fazer uma consulta.

espero ter sido claro...

valeu,

fabio cavalcanti


Cavalcanti.fabio

Cavalcanti.fabio

Curtidas 0

Respostas

Sandra

Sandra

29/06/2004

fabio,

Tente adaptar esse código no onKeyUp do form:
if Shift = [ssCtrl] then
  // seu código se pressionar Ctrl
else
  if Shift = [ssAlt] then
    // se pressionar Alt
  else
    // uma mensagem caso tecla inválida ;

Para maiores detalhes, ao inserir o código neste evento, vá até sua unit, localize a palavra [b:fb672d4f38]TShiftState[/b:fb672d4f38] com o cursor e tecle F1.
Não testei, mas verifique se funciona. Teste também no onKeyDown.

Espero que ajude!


GOSTEI 0
POSTAR