PageControl y TabSheets

[[eduarcol]]

y no es mas facil asi:

Código Delphi [-]
var
   nIdx: Integer;
begin
   //TABSHEET1.TABVisible := fALSE;
   for nIdx:= 0 to pagecontrol1.PageCount - 1 do
      pagecontrol1.Pages[nIdx].TabVisible := nIdx = DBCombobox1.ItemIndex;
end;

no hay que realizar tantas comparaciones

[cloayza]

Empezado por eduarcol

y no es mas facil asi:

Código Delphi [-]
var
   nIdx: Integer;
begin
   //TABSHEET1.TABVisible := fALSE;
   for nIdx:= 0 to pagecontrol1.PageCount - 1 do
      pagecontrol1.Pages[nIdx].TabVisible := nIdx = DBCombobox1.ItemIndex;
end;

no hay que realizar tantas comparaciones

El codigo anterior solo mostraria un TabSheet.

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
var
   nIdx: Integer;
begin
     For nIdx:= 0 To pagecontrol1.PageCount - 1 Do
         Pagecontrol1.Pages[nIdx].TabVisible :=Pagecontrol1.Pages[nIdx].PageIndex<=ComboBox1.ItemIndex;

end;

Creo que esto seria mejor.

Saludos desde
Concepcion-Chile

[[eduarcol]]

Pues si, no habia entendido eso, creia que solo la que se elijio, gracias por la aclaracion.

[jafera]

He probado este codigo y no me muestra ningun tab.

Saludos

[[eduarcol]]

te genera algun mensaje de error?, lo copiastes tal cual esta?, lo acabo de probar y funciona muy bien.

[jafera]

Sencillamente me muestra el Page Control en gris sin ningun tab dentro de el