Página 1 de 1
Segunda aba [Resolvido]
Enviado: Dezembro 27th, 2011, 3:00 pm
por Leão
Olá, tenho uma tela, onde existe uma aba chamado Complemento, no último
campo da primeira tela, quero que o curso vá para o botão Salvar, informo
nome_do_campo.setFocus;
mas não vai, ele abre a segunda aba(página) complemento.
Como resolver isso.
Agradeço e obrigado,
Leão
OK, agora funcionou.
Obrigado.
Re: Segunda aba
Enviado: Dezembro 28th, 2011, 2:54 pm
por Gustavo
Olá,
Abaixo mostramos duas codificações que podem estar lhe auxiliando.
Situação 1
Não passar para o próximo Tabindex e vai para o botão salvar.
procedure TFormNotas_Fiscais.MudaSeForUltimo; //localizar e alterar esta procedure do form.
begin
if (NoManutencao.PageIndex <> NoManutencao.Pages.Count - 1) and
(ActiveControl = BtnSalvar) then
if TabPaginas.TabIndex + 1 <= 2 then// codigo angtigo=TabPaginas.Tabs.Count-1 then
TabPaginas.TabIndex := TabPaginas.TabIndex + 1;
end;
Situação 2
Elimina Tab por condição na exibição(show) do form:
if TabGlobal.DITNF.NTF_IMPORTA.Conteudo <> 'S' then
BEGIN
TabPaginas.TabStop:=FALSE;
TabPaginas.Tabs.Delete(1);
END;
Segunda aba
Enviado: Dezembro 29th, 2011, 3:41 pm
por Leão
Fiz, as duas opções, nenhuma teve efeito, observe o seguinte, ao sair do último campo
(embora existas outros campos, mas estão enable=false), ao sair quero que o foco seja
no botão Salvar.
Obrigado e aguardo
Leão
Re: Segunda aba
Enviado: Janeiro 2nd, 2012, 3:44 pm
por Gustavo
No exemplo da situação 1, a linha
if TabPaginas.TabIndex + 1 <= 2 then
serve para não ir para uma quarta aba.
Explicando melhor:
if TabPaginas.TabIndex + 1 <= 0 then - Para não passar pela segunda aba
if TabPaginas.TabIndex + 1 <= 1 then - Para não passar pela terceira aba
if TabPaginas.TabIndex + 1 <= 2 then - Para não passar pela quarta aba
E assim por diante.
Segue anexado um projeto exemplo para essa situação.
Teste_Abas.rar
Segunda aba [Resolvido]
Enviado: Janeiro 3rd, 2012, 9:37 am
por Leão
Muito obrigado Gustavo,
agora funcionou.
Obrigado,
Leão