KeyPress --gt; Key = #13 não funciona no Edit, porque?

Delphi

20/10/2005

Olá, meu Edit não aceita o Key = 13, ou seja, tenho o seguinte codigo:

if Key = 13 then
begin
TbConsConta.Close;
TbConsConta.ParamByName(´pIDconta´).AsString := EdConta.Text;
TbConsConta.Open;
end;

Coloco um Brealpoint e nada, ele mostra todas as teclas, menos o ENTER, ESC e etc... já habilitei o KeyPrevioew no Form e tudo....


o que pode ser?


[]s


Titanius

Titanius

Curtidas 0

Respostas

Bruno Belchior

Bruno Belchior

20/10/2005

mas vc coloca no OnKeyPress do Edit ou do Formulário... se for a primeira opção não é preciso habilitar o KeyPreview do formulário...


GOSTEI 0
Marcio.theis

Marcio.theis

20/10/2005

Por acaso não tem algum botão que esta com o Default como True ??? Pois se tiver, no momento de precionar o Enter será executado o botão....


GOSTEI 0
Titanius

Titanius

20/10/2005

eu coloco no keypress do Edit, pois no do Form eu tenho que verifica se ele pressionou ESC... e no EDIT funciona tudo, menos o 13...


GOSTEI 0
Martins

Martins

20/10/2005

eu coloco no keypress do Edit, pois no do Form eu tenho que verifica se ele pressionou ESC... e no EDIT funciona tudo, menos o 13...

Olha só Titanius, sei q isso aqui é trocar 6 por meia dúzia mas, tenta assim cara:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = char(13) then
   begin
     key := 0;
  ShowMessage(´Pressionou o ENTER!!!´); //Só p/ saber se o evento é disparado.
     TbConsConta.Close; 
     TbConsConta.ParamByName(´pIDconta´).AsString := EdConta.Text; 
     TbConsConta.Open; 
   end;


Talvez ajude!!!


GOSTEI 0
Weber

Weber

20/10/2005

Eu colocaria no OnKeyDown:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = vk_Return then
  begin
    TbConsConta.Close; 
    TbConsConta.ParamByName(´pIDconta´).AsString := EdConta.Text; 
    TbConsConta.Open; 
  end;
end;

Lembre-se de deixar a propriedade KeyPreview como True.


GOSTEI 0
Fx|hand

Fx|hand

20/10/2005

Procedure TForm1...................
Begin
  If Ord(Key) = VK_RETURN then
    ShowMessage(´Enter Pressionado!´)
end;



GOSTEI 0
POSTAR