Fórum como abrir direto a pagina correta da pagecontrol #5763
19/05/2009
0

Carlos Faria
Curtir tópico
+ 0Posts
19/05/2009
Rodrigo Mourão
Após abrir o FrmCliente faca assim:
FrmCliente.PAgeControl.ActivePageIndex := 0; //Para Abrir a primeira tab
ou
FrmCliente.PAgeControl.ActivePageIndex := 1; //Para Abrir a segunda tab
ou
FrmCliente.PAgeControl.ActivePageIndex := 0; //Para Abrir a terceira tab
E por ai vai !!!
Abs !!!
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Gostei + 0
19/05/2009
Carlos Faria
Gostei + 0
19/05/2009
Rodrigo Mourão
No form principal voce tem o seguinte código:
AbreForm(FrmCliente, TfrmCliente);
Abaixo dele vc coloca o codigo que eu te falei. Acho que voce e que nao entendeu minha responta. No seu form principal voce vai colcocar assim:
AbreForm(FrmCliente, TfrmCliente);
FrmCleinte.PageCOntrol.ActivePageIndex := 0;
Cada tab no FrmCliente tem um index. TbConsulta pode ser 0, o TBCadastro pode ser 1, etc. E so voce ver a propriedade TabIndex dela.
Abs !!
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Gostei + 0
19/05/2009
Carlos Faria
Gostei + 0
19/05/2009
Rodrigo Mourão
No Aguardo.
Gostei + 0
19/05/2009
Carlos Faria
Gostei + 0
19/05/2009
Carlos Faria
Gostei + 0
19/05/2009
Rodrigo Mourão
Abs !!
Gostei + 0
19/05/2009
Carlos Faria
Gostei + 0
21/05/2009
Carlos Faria
Gostei + 0
21/05/2009
Rodrigo Mourão
http://www.rmfactory.com.br/rcs/TabControl.zip
Eu modifiquei a funcao AbreForm, ela tem uma parametro Defult agora. Tudo que esta funcionando vai continuar funcionando porem agora quando voce quiser abrir um form na aba 0, que é a primeira voce faz:
abreform(TFrmCliente, FrmCliente, 0);
Outra coisa no form do cliente tem que colocar um codigo no onShow. Esta tudo no exemlpo anexo.
Abs !!!
Gostei + 0
21/05/2009
Carlos Faria
Application.CreateForm(aclasseform, Aform);
try
if Aform = nil then
Application.CreateForm(TForm, aform);
if tabindex > -1 then
aForm.Tag := tabindex;
aForm.ShowModal; finally
FreeAndNil(Aform);
end; end ; so me responda se isso ai esta correto se posso trabalhar assim e se estiver pode fechar mais esse chamado valeu meste E outra coisa da uma sugestao para o pessoal da adm colocar no site quantos chamados abertos , quantos respondidos , quantos cancelados abs
Gostei + 0
22/05/2009
Rodrigo Mourão
Abs !!!
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)