Re: [delphi-br] Usar a tecla ESC para sair
como a PageControl e a TabSheet não tem esse evento, automaticamente ela anula o do Form, coloque essa rotina nos componentes das TabSheets... - 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] 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
Re: [delphi-br] Usar a tecla ESC para sair
Altere a propriedade keypreview do seu form para true Eduardo Silva ® escreveu: >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] 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
Res: [delphi-br] Usar a tecla ESC para sair
Verifique a propriedade keypreview do form. ---Mensagem original--- De: delphi-br@yahoogrupos.com.br Data: 01/28/05 10:47:41 Para: [EMAIL PROTECTED] Assunto: [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 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 Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.1 - Release Date: 27/1/2005 [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
Re: [delphi-br] Usar a tecla ESC para sair
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:
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 PROTEC
Re: [delphi-br] Usar a tecla ESC para sair
Vc tem que colocar If key = #27 Ok - Original Message - From: Eduardo Silva ® <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, January 28, 2005 11: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] 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
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 <*> 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
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] 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
[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] 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
