Componente PAGECONTROL
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
Curtidas 0
Respostas
Maxsoftware
07/12/2003
procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:= 1;
end;
begin
PageControl1.ActivePageIndex:= 1;
end;
GOSTEI 0
Marcelo Carrijo
07/12/2003
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 ... ? :?:
GOSTEI 0
Fafalcao
07/12/2003
Olá, tente o seguinte código.
PageControl1.Visible := True;
TabSheet1.TabVisible := True;
TabSheet2.TabVisible := False;
PageControl1.Visible := True;
TabSheet1.TabVisible := True;
TabSheet2.TabVisible := False;
GOSTEI 0