Setas para cima para baixo alguem sabe

Delphi

25/03/2003

Estou desenvolvendo um sistemas e nele tem uma consulta
aonde tem uma Grid um Edit
o que quero fazer
quando eu digito o nome ele ja me lista o nome...até ai tudo bem
o que eu quero quando digitado nome ele aparece varios nomes ai eu quero localizar um nome pelas cetas..do teclado que se refere para cima
para baixo...
Me ajudem com isso...

OBs.: Quando precionado a Ceta para Cima ou para Baixo ele seleciona o registro na GRid..

Atenciosamente.: Deibe...


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

25/03/2003

Estes são os números correspondentes às setas do teclado, veja o exemplo:

BEGIN
CASE Key OF
38 : // Para cima.
40 : // Para baixo.
37 : // Para esquerda.
39 : // Para direita.
END;

Tenta implementar isso no seu programa..

Espero er ajudado..

Renato


GOSTEI 0
Dor_poa

Dor_poa

25/03/2003

só para complementar o nosso amigo Renato..
Isto deve estar no evento KeyDown do GRID. ou do proprio form.. vc. decide.. mas se for no form vc. terá que altera a propriedade keyPreview para true..


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

25/03/2003

no evento on keydow do edit faça

var ss : integer;
begin
ss := tedit(sender).selstart;
if key = 38 then query.anterior //esqueci o nome do comando

if key = 38 then query.next;

tedit(sender).selstart := ss;


GOSTEI 0
POSTAR