Pegando valor do Tab Set

Delphi

09/10/2013

Olá pessoal. Não estou conseguindo pegar o valor de cada tab do componente Tab Set. Não quero usar o TabSheet pois acho bem feio. Preciso pegar o valor seja em numero ou em caption da tab pra saber quais componentes serão apresentados. Quero fazer assim:

if tab = 'tal coisa'

faça outra coisa.

Tenho 4 tabs nesse tab set. Valeu pela ajuda galera.
Fabricio Luciano

Fabricio Luciano

Curtidas 0

Respostas

Marcos Oliveira

Marcos Oliveira

09/10/2013

Fabrício, você pode perguntar pelo índice dele:

if TabSet1.TabIndex = 0 then // Primeiro Tab
begin
     //
end
else if TabSet1.TabIndex = 1 then // Segundo Tab
begin
     //
end
else if TabSet1.TabIndex = 2 then // Terceiro Tab
begin
     //
end
else if TabSet1.TabIndex = 3 then // Quarto Tab
begin
     //
end;
GOSTEI 0
Fabricio Luciano

Fabricio Luciano

09/10/2013

Funcionou em parte Marcos......quando mudo o tab de um outro componente dá erro:

procedure TForm_Dvds.TabSet1Click(Sender: TObject);
begin

if TabSet1.TabIndex = 0 then // Primeiro Tab
begin
TabSheet1.TabIndex := 0;
end
else if TabSet1.TabIndex = 1 then // Segundo Tab
begin
TabSheet1.TabIndex := 1;
end
else if TabSet1.TabIndex = 2 then // Terceiro Tab
begin
TabSheet1.TabIndex := 2;
end
else if TabSet1.TabIndex = 3 then // Quarto Tab
begin
TabSheet1.TabIndex := 3;
end;

Diz que: [dcc32 Error] Unit_Form_Dvds.pas(360): E2129 Cannot assign to a read-only property o tabset era pra controlar as tabs do tabsheet.
GOSTEI 0
Fabricio Luciano

Fabricio Luciano

09/10/2013

Descobri amigos...é só colocar: TabSheet1.PageControl.ActivePageIndex := valor que deseja andar no tabsheet; obrigado
GOSTEI 0
Deivison Melo

Deivison Melo

09/10/2013

Finalizando o tópico!
GOSTEI 0
POSTAR