Fórum Componente PAGECONTROL #199657
07/12/2003
0
Boa tarde a todos ...
Coloquei em minha aplicação um Componente PageControl e consequentemente adicionei 2 pages ... tabsheet1 e tabsheet2, deixei tbm a propriedade do pagecontrol (visible) como false, para não aparecer em tempo de execução. A idéia é a seguinte, no menu do sistema chamar essas pages tabsheet1 e tabsheet2, sendo que a última que eu chamar tem que estar ... (como ela estivesse recebendo o foco). Por ex.: abri a tabsheet1 ... usei e terminei ... mas não a finalizei e resolvi abrir a tabsheet2. A última que abri (tabsheet2) é a que tem que estar disponivel para eu usar e não ainda a tabsheet1 .....
alguem por favor pode me ajudar ... ? :?:
Coloquei em minha aplicação um Componente PageControl e consequentemente adicionei 2 pages ... tabsheet1 e tabsheet2, deixei tbm a propriedade do pagecontrol (visible) como false, para não aparecer em tempo de execução. A idéia é a seguinte, no menu do sistema chamar essas pages tabsheet1 e tabsheet2, sendo que a última que eu chamar tem que estar ... (como ela estivesse recebendo o foco). Por ex.: abri a tabsheet1 ... usei e terminei ... mas não a finalizei e resolvi abrir a tabsheet2. A última que abri (tabsheet2) é a que tem que estar disponivel para eu usar e não ainda a tabsheet1 .....
alguem por favor pode me ajudar ... ? :?:
Marcelo Carrijo
Curtir tópico
+ 0
Responder
Posts
07/12/2003
Maxsoftware
procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:= 1;
end;
begin
PageControl1.ActivePageIndex:= 1;
end;
Responder
Gostei + 0
07/12/2003
Marcelo Carrijo
Oi ... agradeço pelo apoio ... mas não deu certo ..... da maneira que vc colocou a linha tudo bem não deu erro ... porrem ele não chama a pagina ....
pode ainda me ajudar ... ? :?:
pode ainda me ajudar ... ? :?:
Responder
Gostei + 0
07/12/2003
Fafalcao
Olá, tente o seguinte código.
PageControl1.Visible := True;
TabSheet1.TabVisible := True;
TabSheet2.TabVisible := False;
PageControl1.Visible := True;
TabSheet1.TabVisible := True;
TabSheet2.TabVisible := False;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)