PageControl y TabSheets

[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