Fórum Pegando valor do Tab Set #457986

09/10/2013

0

Delphi

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

Responder

Posts

09/10/2013

Marcos Oliveira

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;
Responder

Gostei + 0

09/10/2013

Fabricio Luciano

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.
Responder

Gostei + 0

09/10/2013

Fabricio Luciano

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

Gostei + 0

09/10/2013

Deivison Melo

Finalizando o tópico!
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar