como abrir direto a pagina correta da pagecontrol

Olá Carlos !!

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

ola Rodrigo isso ai eu sei o que estou tentando fazer é o seguinte eu tenho um form cliente com uma page control onde nessa page eu tenho um pgcadastro ,um pgconsulta uma page lista e por ai vai .   No formulario principal do projeto que nao e o form cliente eu tenho um menu no menu cadastro eu tenho que chamar o form cliente com o pgcontrol na pg cadcliente       no mesmo form principal eu tenho um menu consulta onde clicando nele eu vou ao formulario de cliente dessa vez na pageconsulta direto sem ter que clicar em nada     no mesmo menu principal eu tenho um menu filtra cliente onde clicando nele eu devo ir ao frmcliente pgfiltracliente direto sem ter que escolher no form cliente a opção que eu quero pois ja selecionei no menu do form principal   claro agora ?  

Carlos acredito que voce nao testou o codigo.

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

OLA RODRIGO olha essa video e veja o que esta acontecendo pq isso aqui me parece ser muito facil

Carlos a vídeo nao foi postada.

No Aguardo.

http://www.4shared.com/account/file/106491179/b92c823f/RESPOSTAPAGECONTROL1.html segue a video

viu ai que coisa estranha isso

Ainda não consegui baixar, a taxa está em 11 KB/s. Estou baixando !!

Abs !!

ok vou tentar postar no devmedia so que aqui ta dificil minha taxa de upload no site da dev e de 10 kbs

Aguardando

Segue exemplo funcionando:

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 !!!

Ola Rodrigo agora sim   Parece que nao sou tao burro assim ,rs do jeito que vc falou que era facil eu tava me achando burro nao conseguir fazer aquela coisinha funcionar      abreformulario (tform,aform) ;     afrom.pagecontrol1.activepageindex := 0;   como vc viu parece que isso no delphi 2009 nao funciona o codigo que vc me enviou funciona sim e fiz a seguinte adaptação nele       procedure abreformulario(aclasseform: TComponentClass; aform: tform;tabindex:Integer  = -1); begin
     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

Perfeito Carlos, esta correto sim!!

Abs !!!


Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi