Tecla Esc

Question

Primeiro uma pergunta: O que vem primeiro: O evento OnKeyPress do Form ou o OnExit de um componente, quando eu clico ESC? Apoergunta � por causa do seguinte.No OnKeyPres do Form e u fiz[quote:6a3582e3...

Rodrigoprado · Answer

testei o c�digo e funcionou.Veja se a propriedade do form keyPreview esta true e a variavel declare ela na se��o private. ou public como desejar melhor.flw...

Rodc · Answer

Coloque True no KeyPreview do Form....

Paulo · Answer

Este � meu OnExit[quote:e34f0d2e2b]procedure TfrmPDV.EDT_TotPagExit(Sender: TObject);var i:Integer; sTotal: Real;begin  if Fechar then  begin    Fechar := False;    Exit;  end;  if (EDT_TotPag.Text = ��) or (EDT_TotPag.Text = �0�) then    Exit;  sTotal   := EDT_TotPag.Value;  if VerificaCodPlano(EDT_CPagto.Text) then  begin    descacre := 0;    LBL_TotCalc.Caption := LBL_SubTotal.Caption;    descacre := stotal-(SubTotal);    SubTotal := sTotal;    if descacre < 0 then    begin      LBL_DescAcre.Style.Color := clRed;      LBL_DescAcre.Caption := FormatFloat(�-0.00�, descacre);    end else    if descacre > 0 then    begin      LBL_DescAcre.Style.Color := clBlue;      LBL_DescAcre.Caption := FormatFloat(�0.00�, descacre);    end else    begin      LBL_DescAcre.Caption := �0,00�;      LBL_DescAcre.Style.Color := clGreen;    end;    EDT_VPagto.EditValue := EDT_TotPag.EditValue;    geraforma := -1;  end;end;[/quote:e34f0d2e2b]E Este � meu OnKeyPress[quote:e34f0d2e2b]procedure TfrmPDV.FormKeyPress(Sender: TObject; var Key: Char);begin  if Key = #27 then    Fechar := True;  if key = 13 then    begin      key := 0;      Perform(CM_DIALOGKEY, VK_TAB, 0);    end;end;[/quote:e34f0d2e2b]Simplesmente se eu der ESC, o OnExit ser� executado, e n�o deveria. A Variavel Fechar vem False na primeira vez....

Onjahyr · Answer

Tem uns artigos aqui na ClubeDelphi para tomar cuidado com o evento onExit, procura por eles (s�o 3 artigos de um s� autor) e veja se vc est� fazendo alguma coisa de errado.... � s� pesquisar aqui na ClubeDelphi.

Blz.

Rodrigoprado · Answer

if Key = #27 thenbegin  key := 0;  // ao clicar sempre deixe key ocmo 0  Fechar := True;end;if key = 13 thenbegin  key := 0; // OK correto  Perform(CM_DIALOGKEY, VK_TAB, 0);end;{{Simplesmente se eu der ESC, o OnExit ser� executado, e n�o deveria. A Variavel Fechar vem False na primeira vez.}}Este esc eh do form idependente se estiver em qualquer edit ou outro componente com foco eh global para a tela, se der esc entao a var vai receber true sim. esta correto....

Rodc · Answer

Desde que o KeyPreview esteja habilitado.Paulo, voc� habilitou o KeyPreview do Form?...

Paulo · Answer

est� habilitado sim. T� estranho aqui. Vou ver minha l�gica amanh� e posto a voc�s....

Paulo · Answer

Deixa eu tentar explicar melhor o q ta acontecendo:

Tenho um Edit, com c�digos no OnExit, conforme coloquei acima. Quando estou neste componente e Teclo <ESC>, ele sai do Edit e executa o c�digo do OnExit, ou seja, a vari�vel Fechar vem [color=red:fcf34415fb]False[/color:fcf34415fb]. Logo em seguida dou um <ENTER> e caio novamente no Edit. Dou um <ESC> e n�o executa o C�digo do OnExit, porque a vari�vel Fechar vem [color=green:fcf34415fb]True[/color:fcf34415fb]. Esse � o pau que est� dando aqui, � quest�o de l�gica eu sei, mas n�o consegui ainda fazer o certo.

Paulo · Answer

Mas tem algo interessante: Se eu der SHIFT+TAB, ele volta sem problemas, sem executar o OnExit....

Paulo · Answer

Tem como capturar o Shift+Tab e simular teclando ESC ou to sonhando demais?...

Paulo · Answer

Pessoal, resolve meu problema. Ap�s quebrar a cabe�a, fiz o seguinte e muito f�cil,ehehehehehe.

Peguei o ActiveControl no teclar o <ESC>, e fiz:

If activecontrol.name = �Nome_do_componente_anterior� then Exit;

Isso resolveu todo minha d�vida deste post. valeu a todos.

F�rum Tecla Esc #353712