TUpDownCreate
TUpDownCreate
Code:
FUpDown:=UpDownCreate(WizardForm, udRight, True, nil, crDefault, False, True, 0, 'UpDown Create Hint', 1, 100, 0, udVertical, 0, False, 0, False, 0, True, True, False, 20, 20, 200, 200, nil, nil);
Code:
- UpDownGetParent(FUpDown);
- UpDownGetAlignButton(FUpDown);
- UpDownGetArrowKeys(FUpDown);
- UpDownGetAssociate(FUpDown);
- UpDownGetCursor(FUpDown);
- UpDownGetDoubleBuffered(FUpDown);
- UpDownGetEnabled(FUpDown);
- UpDownGetHelpContext(FUpDown);
- UpDownGetHint(FUpDown);
- UpDownGetIncrement(FUpDown);
- UpDownGetMax(FUpDown);
- UpDownGetMin(FUpDown);
- UpDownGetOrientation(FUpDown);
- UpDownGetPosition(FUpDown);
- UpDownGetShowHint(FUpDown);
- UpDownGetTabOrder(FUpDown);
- UpDownGetTabStop(FUpDown);
- UpDownGetTag(FUpDown);
- UpDownGetThousands(FUpDown);
- UpDownGetVisible(FUpDown);
- UpDownGetWrap(FUpDown);
- UpDownGetLeft(FUpDown);
- UpDownGetTop(FUpDown);
- UpDownGetHeight(FUpDown);
- UpDownGetWidth(FUpDown);
- UpDownGetBounds(FUpDown);
Code:
- UpDownSetParent(FUpDown, WizardForm);
- UpDownSetAlignButton(FUpDown, udRight);
- UpDownSetArrowKeys(FUpDown, True);
- UpDownSetAssociate(FUpDown, nil);
- UpDownSetCursor(FUpDown, crDefault);
- UpDownSetDoubleBuffered(FUpDown, False);
- UpDownSetEnabled(FUpDown, True);
- UpDownSetHelpContext(FUpDown, 0);
- UpDownSetHint(FUpDown, 'UpDown Create Hint');
- UpDownSetIncrement(FUpDown, 1);
- UpDownSetMax(FUpDown, 100);
- UpDownSetMin(FUpDown, 0);
- UpDownSetOrientation(FUpDown, udVertical);
- UpDownSetPosition(FUpDown, 0);
- UpDownSetShowHint(FUpDown, False);
- UpDownSetTabOrder(FUpDown, 0);
- UpDownSetTabStop(FUpDown, False);
- UpDownSetTag(FUpDown, 0);
- UpDownSetThousands(FUpDown, True);
- UpDownSetVisible(FUpDown, True);
- UpDownSetWrap(FUpDown, False);
- UpDownSetLeft(FUpDown, 20);
- UpDownSetTop(FUpDown, 20);
- UpDownSetHeight(FUpDown, 200);
- UpDownSetWidth(FUpDown, 200);
- UpDownSetBounds(FUpDown, 20, 20, 200, 200);
Code:
UpDownSetEvent(FUpDown, nil, nil);
Last edited by DelphiBuilder; 28-12-2022 at 03:41.
|