| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
renanbg Colaborador


Registrado: Quinta-Feira, 12 de Abril de 2012 Mensagens: 1158
|
Enviada: Seg Nov 27, 2017 9:39 am Assunto: [resolvido] Impedir acesso tabsheet do pagecontrol |
|
|
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 |
|
 |
natanbh1 Colaborador

Registrado: Terça-Feira, 15 de Março de 2011 Mensagens: 3093 Localização: Belo Horizonte - MG
|
Enviada: Seg Nov 27, 2017 11:18 am Assunto: |
|
|
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 |
|
 |
renanbg Colaborador


Registrado: Quinta-Feira, 12 de Abril de 2012 Mensagens: 1158
|
Enviada: Seg Nov 27, 2017 12:06 pm Assunto: |
|
|
natanbh1, perfeito.
obrigado. |
|
| Voltar ao Topo |
|
 |
|