TNotebookCreate / TNotebookPageCreate
Code:
FNotebookPage:=NotebookPageCreate(WizardForm, clWhite, nil, wpWelcome, crDefault, True, 0, 'Notebook Page Create Hint', True, False, 0, True, 0, 0, 200, 200);
FNotebook:=NotebookCreate(WizardForm, nil, alNone, crDefault, True, 0, 'Notebook Create Hint', True, False, 0, False, 0, True, 20, 20, 200, 200);
Code:
- NotebookGetParent(FNotebook);
- NotebookGetActivePage(FNotebook);
- NotebookGetAlign(FNotebook);
- NotebookGetCursor(FNotebook);
- NotebookGetEnabled(FNotebook);
- NotebookGetHelpContext(FNotebook);
- NotebookGetHint(FNotebook);
- NotebookGetParentShowHint(FNotebook);
- NotebookGetShowHint(FNotebook);
- NotebookGetTabOrder(FNotebook);
- NotebookGetTabStop(FNotebook);
- NotebookGetTag(FNotebook);
- NotebookGetVisible(FNotebook);
- NotebookGetLeft(FNotebook);
- NotebookGetTop(FNotebook);
- NotebookGetHeight(FNotebook);
- NotebookGetWidth(FNotebook);
- NotebookGetBounds(FNotebook);
Code:
- NotebookSetParent(FNotebook, WizardForm);
- NotebookSetActivePage(FNotebook, nil);
- NotebookSetAlign(FNotebook, alNone);
- NotebookSetCursor(FNotebook, crDefault);
- NotebookSetEnabled(FNotebook, True);
- NotebookSetHelpContext(FNotebook, 0);
- NotebookSetHint(FNotebook, 'Notebook Create Hint');
- NotebookSetParentShowHint(FNotebook, True);
- NotebookSetShowHint(FNotebook, False);
- NotebookSetTabOrder(FNotebook, 0);
- NotebookSetTabStop(FNotebook, False);
- NotebookSetTag(FNotebook, 0);
- NotebookSetVisible(FNotebook, True);
- NotebookSetLeft(FNotebook, 20);
- NotebookSetTop(FNotebook, 20);
- NotebookSetHeight(FNotebook, 200);
- NotebookSetWidth(FNotebook, 200);
- NotebookSetBounds(FNotebook, 20, 20, 200, 200);
- NotebookPageCount(FNotebook);
- //NotebookPages(FNotebook, wpWelcome);
- NotebookFindNextPage(FNotebook, wpWelcome, True);
Last edited by DelphiBuilder; 27-12-2022 at 02:02.
|