Segunda aba [Resolvido]

[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.

[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;

[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

[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

[Leão]

Muito obrigado Gustavo,

agora funcionou.

Obrigado,
Leão