Chamar TabSheet dentro de um PageControl
Olá Pessoal!
É o seguinte:
Tenho dois form´s: Form1 e Form2.
No Form1 tenho dois button´s: Buntton1 e Button2;
No Form2 tenho um PageControl: PageContro1 com dois TabSheet´s: TabSheet1 e TabSheet2.
Ao clicar no Button1 desejo que o Form2 seja chamado e exiba o TabSheet1.
Ao clicar no Button2 desejo que o Form2 seja chamado e exiba o TabSheet2.
Fiz o seguinte:
[color=blue:96092a3542]procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.PageControl1.ActivePage:=TabSheet1;
end;[/color:96092a3542]Quando compilo exibe um único erro: Undeclared identifier: ´TabSheet1´
Como resolver?
Deve ser fácil resolver mas sou iniciante e já tentei várias formas. Por essa ser a que dar menos erros creio que esteja mais próxima da solução.
Grato a todos que indicarem alguma dica.
É o seguinte:
Tenho dois form´s: Form1 e Form2.
No Form1 tenho dois button´s: Buntton1 e Button2;
No Form2 tenho um PageControl: PageContro1 com dois TabSheet´s: TabSheet1 e TabSheet2.
Ao clicar no Button1 desejo que o Form2 seja chamado e exiba o TabSheet1.
Ao clicar no Button2 desejo que o Form2 seja chamado e exiba o TabSheet2.
Fiz o seguinte:
[color=blue:96092a3542]procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.PageControl1.ActivePage:=TabSheet1;
end;[/color:96092a3542]Quando compilo exibe um único erro: Undeclared identifier: ´TabSheet1´
Como resolver?
Deve ser fácil resolver mas sou iniciante e já tentei várias formas. Por essa ser a que dar menos erros creio que esteja mais próxima da solução.
Grato a todos que indicarem alguma dica.
Class
Curtidas 0
Respostas
Ulisses.lima
16/02/2008
Bom dia!
O problema é que vc está passando uma propriedade de outro objeto.
Existem outros caminhos, por exemplo:
procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:=1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:=2;
end;
Boa sorte.
Ulisses
O problema é que vc está passando uma propriedade de outro objeto.
Existem outros caminhos, por exemplo:
procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:=1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:=2;
end;
Boa sorte.
Ulisses
GOSTEI 0
Class
16/02/2008
Bom dia!
O problema é que vc está passando uma propriedade de outro objeto.
Existem outros caminhos, por exemplo:
procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:=1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:=2;
end;
Boa sorte.
Ulisses
Valeu Ulisses!
Vou estudar melhor as propriedades.
Abraço...
GOSTEI 0