Tab***.Tabvisible:=false;

From: Alistair George (noemailadds_at_xtra.co.nz)
Date: 06/25/04

  • Next message: Ken Fletcher: "Help with VarArrayOf(" 
    Date: Fri, 25 Jun 2004 12:07:46 +1200

    Hi all here is an experience I will share with you as it took some mucking
    around and is obviously a bug in D5 at least:
    When the tab***.visible property is false, by iterating through the pages,
    it is still displayed.
    Here is a rudimentary, but effective way to dispose of that problem:
    //Forward
    procedure TSDWForm1.NextBtnClick(Sender: TObject);
    var Skipval: word;
    begin
      if not BackBtn.Visible then BackBtn.Visible := true;
      if PageControl1.ActivePageIndex < PageControl1.PageCount - 1 then
      begin
        SkipVal := PageControl1.ActivePageIndex + 1;
        if (not Mainform.AdvDet1.Checked) and (SkipVal = 5) then Inc(SkipVal,
    1); // Hit undesired, so skip it
        PageControl1.ActivePageIndex := SkipVal;
      end;
    end;
    //Back
    procedure TSDWForm1.BackBtnClick(Sender: TObject);
    var Skipval: word;
    begin
      if PageControl1.ActivePageIndex > 0 then
      begin
        SkipVal := PageControl1.ActivePageIndex - 1;
        if (not Mainform.AdvDet1.Checked) and (SkipVal = 5) then Dec(SkipVal,
    1); //Skip if undesired
        PageControl1.ActivePageIndex := SkipVal;
      end;
      if PageControl1.ActivePageIndex = 0 then BackBtn.Visible := false;
      NextBtn.Caption := '&Next';
      NextBtn.OnClick := NextBtnClick;
    end;

  • Next message: Ken Fletcher: "Help with VarArrayOf("
    • Quantcast