Buscar por:

Executar outra Função com a tecla TAB

Código

Para substituir o tab em um edit para que ele execute um outra função,  por exemplo, quero digitar um inicio de um nome e pressionar a tecla TAB para que ele liste uma pesquisa... 

faça o seguinte 

coloque em seu form um ApplicationEventes1, e no envento onMessage acrescente a seguinte linha: 

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;

  var Handled: Boolean);

begin

 if edit1.Text <> EmptyStr then

 begin

   if (Msg.Message = WM_KEYDOWN) AND (Msg.wParam = VK_TAB) then

     begin

       form2.show;

//       Msg.wParam := 0;

       Handled    := True;

    end;

  end;  

Note que a opção Msg.wparam:=0 // aqui ele bloqueia o tab e ele perde a função. 

Nesse exemplo a tecla tab irá abrir um outro form se o campo edit nao estiver vazio. 

pessoa sou novato aqui, e acho que isso, irá ajudar muito pois bati muito a cabeça com isso, aproveitei uns exemplos da net e montei esse de acordo com a minha necessidade ... espero ter ajudado.