PROBLEMAS COM O ENTER
Pessoal tentei explicar várias vezes vou ser mais claro ok ,
tenho no form um edit , o problema é o seguinte tenho que digitar o numero 123 (é um exemplo) depois dou enter e ele me exibe em outra edit o nome do cliente , ok.
O PROBLEMA é que ele nem espera eu teclar o 123 para ir para o evento onkeydonw onde chamo o cliente , qdo digito o numero 1 ele já vai para este evento , ele naum espera eu dar o enter para pegar o numero 123 por inteiro entende , NO vb era só colocar o keypress if key = 13 , e no keydown mandava chamar o cliente , e ele só ia para o keydonw depois que eu desse enter , no delphi ele vai direto mesmo sem o enter , PQ ? como sair disso ?
tenho no form um edit , o problema é o seguinte tenho que digitar o numero 123 (é um exemplo) depois dou enter e ele me exibe em outra edit o nome do cliente , ok.
O PROBLEMA é que ele nem espera eu teclar o 123 para ir para o evento onkeydonw onde chamo o cliente , qdo digito o numero 1 ele já vai para este evento , ele naum espera eu dar o enter para pegar o numero 123 por inteiro entende , NO vb era só colocar o keypress if key = 13 , e no keydown mandava chamar o cliente , e ele só ia para o keydonw depois que eu desse enter , no delphi ele vai direto mesmo sem o enter , PQ ? como sair disso ?
Anonymous
Curtidas 0
Respostas
Uiratan Cavalcante
07/02/2003
Dragon, tente isso
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then ConsultaCliente(edit1.Text);
end;
ou seja.. no OnKeyPress do Edit1, se a tecla for enter, vc chama um procedimento chamado ConsultaCliente passando como parametro o valor do edit1, senao quiser um procedimento, basta fazer isso
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = 13 then
begin
// sua consulta
end;
end;
sem problemas, nao? abraços
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then ConsultaCliente(edit1.Text);
end;
ou seja.. no OnKeyPress do Edit1, se a tecla for enter, vc chama um procedimento chamado ConsultaCliente passando como parametro o valor do edit1, senao quiser um procedimento, basta fazer isso
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = 13 then
begin
// sua consulta
end;
end;
sem problemas, nao? abraços
GOSTEI 0