o componenete nunca perde o foco

Question

estou fazendo uma tela de pesquisa e quando eu digito algo q quero procurar ele me aparece numa DBGRID ai q come�a o problema toda vez q preciso navegar na dbgrid tenho q sair do edit e c preciso faze...

Somar · Answer

Oq vc tem no evento OnExit do seu componente ?...

Dooda · Answer

Caro amigo ELTONTLMS, n�o sei se � isso mesmo que vc quer mas tente o seguinte:
OnEnter do EdtPEsquisa : KeyPreview := False;
OnExit do EdtPEsquisa : KeyPreview := True;

Fa�a o tratamento da movimenta��es no OnKeyDown do EdtPesquisa Tipo:

#
if (shift = [ssctrl]) then // Control pressionado
begin
if (Key = VK_PRIOR) then // PAGE UP - Primeiro registro
dtsCondCapa.DataSet.First
else if (Key = VK_NEXT) then // PAGE DOWN - �ltimo registro
dtsCondCapa.DataSet.Last;
Exit;
end;

if (Key = VK_PRIOR) then // PAGE UP - Volta 5
dtsCondCapa.DataSet.MoveBy(-5)
else if (Key = VK_NEXT) then // PAGE DOWN - Avan�a 5
dtsCondCapa.DataSet.MoveBy(5)

else if (Key = VK_UP) then // Seta para cima
begin
dtsCondCapa.DataSet.Prior;
Key := 0;
end
else if (Key = VK_DOWN) then // Seta para baixo
begin
dtsCondCapa.DataSet.Next;
Key := 0;
end

else if (Key = VK_RETURN) then // Alterar
begin
if btbAlterar.Enabled then
btbAlterar.OnClick(Sender);
Key := 0;
end

else if (Key = VK_INSERT) then // Incluir
begin
if btbIncluir.Enabled then
btbIncluir.OnClick(Sender);
Key := 0;
end

else if (Key = VK_ESCAPE) then // Esc
btbCancelar.SetFocus;

#
No meu caso o componente que mostrava os dados no DBGrid � DtsCondCapa que � um DataSource da paleta DBExpress...

Vallews, qualquer coisa, manda um e-mail....

Marco Salles · Answer

[quote:60763c3c0b]sempre q quizer navegar na grid eu possa ir com as setas [/quote:60763c3c0b]Se eu entendi Direito....[code:1:60763c3c0b]procedure TFormConsultaProdutos.Edit1KeyDown(Sender: TObject;  var Key: Word; Shift: TShiftState);beginif Key = VK_Down Then Table1.Next  //exemplo else  if Key = Vk_Up then    Table1.prior;end;[/code:1:60763c3c0b]...

F�rum o componenete nunca perde o foco #269018