Buscar

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.

 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 24/09/10
Por: Reginaldo S. Carvalho
Visualizada: 3755 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009