TGroupBoxCreate
TGroupBoxCreate
Code:
FGroupBox:=GroupBoxCreate(WizardForm, alNone, 'GroupBox Create', clBtnFace, True, crDefault, False, crDrag, dmManual, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, 'GroupBox Create Hint', True, True, True, True, True, nil, False, 0, True, 0, True, 20, 20, 200, 200, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);
Code:
- GroupBoxGetParent(FGroupBox);
- GroupBoxGetAlign(FGroupBox);
- GroupBoxGetCaption(FGroupBox);
- GroupBoxGetColor(FGroupBox);
- GroupBoxGetCtl3D(FGroupBox);
- GroupBoxGetCursor(FGroupBox);
- GroupBoxGetDoubleBuffered(FGroupBox);
- GroupBoxGetDragCursor(FGroupBox);
- GroupBoxGetDragMode(FGroupBox);
- GroupBoxGetEnabled(FGroupBox);
- GroupBoxGetFontColor(FGroupBox);
- GroupBoxGetFontHeight(FGroupBox);
- GroupBoxGetFontName(FGroupBox);
- GroupBoxGetFontPitch(FGroupBox);
- GroupBoxGetFontSize(FGroupBox);
- GroupBoxGetFontStyle(FGroupBox);
- GroupBoxGetHelpContext(FGroupBox);
- GroupBoxGetHint(FGroupBox);
- GroupBoxGetParentBackground(FGroupBox);
- GroupBoxGetParentColor(FGroupBox);
- GroupBoxGetParentCtl3D(FGroupBox);
- GroupBoxGetParentFont(FGroupBox);
- GroupBoxGetParentShowHint(FGroupBox);
- GroupBoxGetPopupMenu(FGroupBox);
- GroupBoxGetShowHint(FGroupBox);
- GroupBoxGetTabOrder(FGroupBox);
- GroupBoxGetTabStop(FGroupBox);
- GroupBoxGetTag(FGroupBox);
- GroupBoxGetVisible(FGroupBox);
- GroupBoxGetLeft(FGroupBox);
- GroupBoxGetTop(FGroupBox);
- GroupBoxGetHeight(FGroupBox);
- GroupBoxGetWidth(FGroupBox);
- GroupBoxGetBounds(FGroupBox);
Code:
- GroupBoxSetParent(FGroupBox, WizardForm);
- GroupBoxSetAlign(FGroupBox, alNone);
- GroupBoxSetCaption(FGroupBox, 'GroupBox Create');
- GroupBoxSetColor(FGroupBox, clWindow);
- GroupBoxSetCtl3D(FGroupBox, True);
- GroupBoxSetCursor(FGroupBox, crDefault);
- GroupBoxSetDoubleBuffered(FGroupBox, False);
- GroupBoxSetDragCursor(FGroupBox, crDrag);
- GroupBoxSetDragMode(FGroupBox, dmManual);
- GroupBoxSetEnabled(FGroupBox, True);
- GroupBoxSetFontColor(FGroupBox, clBlack);
- GroupBoxSetFontHeight(FGroupBox, 20);
- GroupBoxSetFontName(FGroupBox, 'Segoe UI');
- GroupBoxSetFontPitch(FGroupBox, fpDefault);
- GroupBoxSetFontSize(FGroupBox, 20);
- GroupBoxSetFontStyle(FGroupBox, []);
- GroupBoxSetFont(FGroupBox, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
- GroupBoxSetHelpContext(FGroupBox, 0);
- GroupBoxSetHint(FGroupBox, 'GroupBox Create Hint');
- GroupBoxSetParentBackground(FGroupBox, True);
- GroupBoxSetParentColor(FGroupBox, False);
- GroupBoxSetParentCtl3D(FGroupBox, True);
- GroupBoxSetParentFont(FGroupBox, True);
- GroupBoxSetParentShowHint(FGroupBox, True);
- GroupBoxSetPopupMenu(FGroupBox, nil);
- GroupBoxSetShowHint(FGroupBox, False);
- GroupBoxSetTabOrder(FGroupBox, 0);
- GroupBoxSetTabStop(FGroupBox, True);
- GroupBoxSetTag(FGroupBox, 0);
- GroupBoxSetVisible(FGroupBox, True);
- GroupBoxSetLeft(FGroupBox, 20);
- GroupBoxSetTop(FGroupBox, 20);
- GroupBoxSetHeight(FGroupBox, 200);
- GroupBoxSetWidth(FGroupBox, 200);
- GroupBoxSetBounds(FGroupBox, 20, 20, 200, 200);
Code:
GroupBoxSetEvent(FGroupBox, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);
Last edited by DelphiBuilder; 27-12-2022 at 02:06.
|