ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Tecla de Atalho [RESOLVIDO]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
felipeiw
Novato
Novato


Registrado: Quinta-Feira, 2 de Outubro de 2008
Mensagens: 63
MensagemEnviada: Qui Jan 22, 2009 9:45 pm    Assunto: Tecla de Atalho [RESOLVIDO] Responder com Citação
Tenho um TPageControl com varias pages, como posso fazer para mudar de page teclando ALT+Setas Direita e Esquerda ?

Obrigado

Editado pela última vez por felipeiw em Sáb Jan 24, 2009 2:37 pm, num total de 2 vezes
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
mestrehurricane
Mestre
Mestre


Registrado: Domingo, 14 de Janeiro de 2007
Mensagens: 984
Localização: Belo Horizonte - MG
MensagemEnviada: Qui Jan 22, 2009 10:41 pm    Assunto: Responder com Citação
pagecontrol1.SelectNextPage(tabsheet1.Visible =true);
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
felipeiw
Novato
Novato


Registrado: Quinta-Feira, 2 de Outubro de 2008
Mensagens: 63
MensagemEnviada: Sex Jan 23, 2009 8:52 am    Assunto: Responder com Citação
// Proxima Page
if (KEY = VK_F2) then
PageControl.SelectNextPage(True, True);

// Page Anterior
if (KEY = VK_F3) then
PageControl.SelectNextPage(False, False);

Porem alguem sabe como eu usaria ao inves de F2 o ALT+Seta para a direita ?

Obrigado
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
felipeiw
Novato
Novato


Registrado: Quinta-Feira, 2 de Outubro de 2008
Mensagens: 63
MensagemEnviada: Sex Jan 23, 2009 9:07 am    Assunto: Responder com Citação
Código:


if (Shift = [ssAlt]) and (Key = 37) then
  PageControl.SelectNextPage(False, False);

if (Shift = [ssAlt]) and (Key = 39) then
  PageControl.SelectNextPage(True, True);



Resolvido !
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
MARCZEWSKI
Membro Junior
Membro Junior


Registrado: Terça-Feira, 9 de Dezembro de 2008
Mensagens: 337
MensagemEnviada: Sex Jan 23, 2009 8:25 pm    Assunto: Responder com Citação
caso seu problema ja tenha sido sanado, daria para vc editar o titulo do topico acrescentando [Resolvido]??? Nao é regra do forum, é so por questao de organizaçao mesmo.

campanha, veja: http://www.activedelphi.com.br/forum/viewtopic.php?t=45146


grato,
_________________
Estarei um pouco ausente do forum por um tempo!!!

Caso seja importante, mande MP(duvidas somente no forum)

grato,
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB