[Resolvido] Edit funcionar com enter

[pdb 0]

Eu fiz um sistema de pesquisa e gostaria de saber como eu faço para que o edit da pesquisa funcionasse apenas teclando [Enter] ao invez de clicar no botão pesquisar. eu vi varias opções sobre substituir o tab pelo enter mas suponho que não seria este a solução do meu problema.

Alguem pode me auxiliar??

 

 

Obrigado!

[Rodrigo Miss 1]

Bom dia, beleza?

você pode montar um esquema no evento onKeyPress do edit:

 

if (Key = #13) and (txtConsulta.Text <> '') then
begin
	with qry do
	begin
		Close;
		SQL.Clear;
		SQL.Add('SELECT COLUNA_TAL FROM TABELA');
		Open;
	end;
end;

[Hugo Slepicka 0]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 then

Begin

query1.SQL.clear;

query1.SQL.Add('select * from table1');

query1.SQL.Add('WHERE Nome LIKE '+#39+'%'+edit1.Text+'%'+#39);

query1.Open;

End;

end;

[Terry 0]

Valeu mesmo galera... agora ta tudo beleza ak...

[pdb 0]

Opa... ak pra mim tbm esta ok... Valeu...

[Hugo Slepicka 0]

Beleza...

 

http://forum.imasters.com.br/public/style_emoticons/default/natal_smile.gif