Results 1 to 3 of 3
  1. #1
    Join Date
    Oct 2009
    Posts
    6

    Unanswered: Notebook.ActivePage problem

    i have the following code:
    procedure TCallMain.FormShow(Sender: TObject);
    var
    Reg : TRegistry;
    begin
    if LoggingIn then begin
    NoteBook2.ActivePage := 'CALL';

    Reg := TRegistry.Create;
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey(RegKey, True) = True then begin
    try
    NoteBook1.ActivePage := Reg.ReadString('page');
    except
    NoteBook1.ActivePage := 'CALLS';
    end;
    end;
    Reg.CloseKey;
    Reg.Free;
    // NoteBook1.ActivePage := 'CALLS';
    end;
    and am interested inthe line:
    NoteBook1.ActivePage := 'CALLS';

    how do i access this page called "CALLS"??
    i dont know how all of this work and must do maintenance on this app specifically that page..

    can anyone help please?

  2. #2
    Join Date
    Oct 2009
    Location
    South Africa, the land of mystery
    Posts
    5

    Setting the activepage of a notebook

    If the page 'Calls' is the second page on the notebook then:
    Notebook.Activepageindex := 1;

    Notebook indexes are zero based

  3. #3
    Join Date
    Oct 2009
    Posts
    6
    i solved my problem thanks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •