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

Question

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;Co...

Bruno Belchior · Answer

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......

Marcio.theis · Answer

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.......

Titanius · Answer

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......

Martins · Answer

[quote:634028e0e6=�titanius�]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...[/quote:634028e0e6]Olha s� Titanius, sei q isso aqui � trocar 6 por meia d�zia mas, tenta assim cara:[code:1:634028e0e6]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;[/code:1:634028e0e6]Talvez ajude!!!...

Weber · Answer

Eu colocaria no OnKeyDown:[code:1:55d2237fa2]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;[/code:1:55d2237fa2]Lembre-se de deixar a propriedade KeyPreview como True....

Fx|hand · Answer

[code:1:465db81549]Procedure TForm1...................Begin  If Ord(Key) = VK_RETURN then    ShowMessage(�Enter Pressionado!�)end;[/code:1:465db81549]...

F�rum KeyPress --gt; Key = #13 n�o funciona no Edit, porque? #300060