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 

[resolvido] Impedir acesso tabsheet do pagecontrol

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


Registrado: Quinta-Feira, 12 de Abril de 2012
Mensagens: 1158

MensagemEnviada: Seg Nov 27, 2017 9:39 am    Assunto: [resolvido] Impedir acesso tabsheet do pagecontrol Responder com Citação

Dei uma boa pesquisada e acho que não tem solução.

Tenho 4 abas. 3 delas são para dados cadastrais. A 4ª para pesquisar o histórico de atendimentos.

Preciso impedir o acesso na aba 4 em tres casos como:

Quando em modo de inserção, edição ou com o formulario vazio.

Resolvi parcialmente usando esse codigo no onchange do pagecontrol


Código:
  if (EdCodigo.Text = '') and not Incluir then
     PageControl1.ActivePageIndex := 0;


O problema é que se estou incluindo um novo cadastro, o acesso fica liberado. Se removo a parte do incluir perco o acesso as abas 2 e 3

Alguma ideia?


Editado pela última vez por renanbg em Seg Nov 27, 2017 12:47 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
natanbh1
Colaborador
Colaborador


Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG

MensagemEnviada: Seg Nov 27, 2017 11:18 am    Assunto: Responder com Citação

Não sei se te entendi bem, mas teste o código abaixo no OnChange do PageControl:

Código:
  // Se aba 4 e edCodigo vazio ou Incluindo volte para aba 1

  if (PageControl1.ActivePageIndex = 3) and ((EdCodigo.Text = EmptyStr) or (incluir)) then
    PageControl1.ActivePageIndex := 0;

_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
renanbg
Colaborador
Colaborador


Registrado: Quinta-Feira, 12 de Abril de 2012
Mensagens: 1158

MensagemEnviada: Seg Nov 27, 2017 12:06 pm    Assunto: Responder com Citação

natanbh1, perfeito.

obrigado.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
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