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