Caro Eduardo,

Você leu TODA a resposta do nosso amigo Eolos?

Você não pode usar Key = 27. Use:
Case Key Of
      VK_ESCAPE : Close;

Conforme resposta que já foi dada.
E olha, não me leve à mal, mas a sua resposta mostra claramente como você
mal pensa, mal tenta fazer algo e já pede socorro à lista.
Até aí pra mim, tudo bem o que acontece é que cada dia eu leio menos a
lista. Mas o pior é que você manda as mesmas mensagens para várias listas,
então no meu outlook, onde tenho regras de mensagens, as suas mensagens que
não são enviadas especificamente para delphi-br@yahoogrupos.com.br, caem na
minha caixa de entrada. Fico tão chateado que na maioria das vezes
simplesmente as seleciono e deleto.
Então peço à você e à todos que realizam esta prática o seguinte:
_Pesquisem antes de recorrer à lista.
_Quando recorrer, envie a dúvida à uma lista por vez e não nas '10' listas
em que estão cadastrados.

Não me levem à mal, acho que desta forma todos aproveitaremos mais este
recurso.

[]

Rogério Ricardo Fernandes
----- Original Message ----- 
From: "Eduardo Silva ®" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, January 28, 2005 11:06 AM
Subject: RES: [delphi-br] Usar a tecla ESC para sair



Esqueci de dizer, o key preview já esta true.
  -----Mensagem original-----
  De: Eolos (Yahoo) [mailto:[EMAIL PROTECTED]
  Enviada em: sexta-feira, 28 de janeiro de 2005 11:02
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Usar a tecla ESC para sair



  Coloque KeyPreview = True

  procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift:
TShiftState);
  begin
    Case Key Of
      VK_ESCAPE : Close;
    end;

  end;

  Abraço

    ----- Original Message -----
    From: Eduardo Silva ®
    To: [EMAIL PROTECTED]
    Sent: Friday, January 28, 2005 10:54 AM
    Subject: [delphi-br] Usar a tecla ESC para sair


    Galera tenho um form com 1 Page Control e dentro deste 2 TabSheet.

    Estou usando o código abaixo no evento onKeyDown do form para fechar o
mesmo
    com a tecla ESC, mas não esta funcionando.

    Alguém pode me dar uma mão ?

       if Key = 27 then
       begin
          Tabela.Cancel;
          Close;
       end;

         _  ___________________________________  _
        / )|                                   |( \
       / / |     Eduardo de Almeida Silva      | \ \
    _( (_ |  _    [EMAIL PROTECTED]     _  | _) )_
    (((\ \)|_/ )___________________________( \_|(/ /)))
    (\\\\ \_/ /                             \ \_/ ////)
    \       /                               \       /
      \    _/                                 \_    /
      /   /                                     \   \



    --
    <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

    Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

    Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED] ou [EMAIL PROTECTED]



          Yahoo! Grupos, um serviço oferecido por:







  --------------------------------------------------------------------------
----
    Links do Yahoo! Grupos

      a.. Para visitar o site do seu grupo na web, acesse:
      http://br.groups.yahoo.com/group/delphi-br/

      b.. Para sair deste grupo, envie um e-mail para:
      [EMAIL PROTECTED]

      c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



  [As partes desta mensagem que não continham texto foram removidas]



  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



        Yahoo! Grupos, um serviço oferecido por:

                    São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília




----------------------------------------------------------------------------
--
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.




[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos












-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 



Responder a