TEditCreate
TEditCreate
Code:
FEdit:=EditCreate(WizardForm, alNone, True, True, bsSingle, ecNormal, clWindow, True, crDefault, False, crDrag, dmManual, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, True, 'Edit Create Hint', 0, False, False, True, True, True, #0, nil, False, False, 0, True, 0, 'Edit Create', True, 20, 20, 200, 200, nil, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);
Code:
- EditGetParent(FEdit);
- EditGetAlign(FEdit);
- EditGetAutoSelect(FEdit);
- EditGetAutoSize(FEdit);
- EditGetBorderStyle(FEdit);
- EditGetCharCase(FEdit);
- EditGetColor(FEdit);
- EditGetCtl3D(FEdit);
- EditGetCursor(FEdit);
- EditGetDoubleBuffered(FEdit);
- EditGetDragCursor(FEdit);
- EditGetDragMode(FEdit);
- EditGetEnabled(FEdit);
- EditGetFontColor(FEdit);
- EditGetFontHeight(FEdit);
- EditGetFontName(FEdit);
- EditGetFontPitch(FEdit);
- EditGetFontSize(FEdit);
- EditGetFontStyle(FEdit);
- EditGetHelpContext(FEdit);
- EditGetHideSelection(FEdit);
- EditGetHint(FEdit);
- EditGetMaxLength(FEdit);
- EditGetOEMConvert(FEdit);
- EditGetParentColor(FEdit);
- EditGetParentCtl3D(FEdit);
- EditGetParentFont(FEdit);
- EditGetParentShowHint(FEdit);
- //EditGetPasswordChar(FEdit);
- EditGetPopupMenu(FEdit);
- EditGetReadOnly(FEdit);
- EditGetShowHint(FEdit);
- EditGetTabOrder(FEdit);
- EditGetTabStop(FEdit);
- EditGetTag(FEdit);
- EditGetVisible(FEdit);
- EditGetLeft(FEdit);
- EditGetTop(FEdit);
- EditGetHeight(FEdit);
- EditGetWidth(FEdit);
- EditGetBounds(FEdit);
Code:
- EditSetParent(FEdit, WizardForm);
- EditSetAlign(FEdit, alNone);
- EditSetAutoSelect(FEdit, True);
- EditSetAutoSize(FEdit, True);
- EditSetBorderStyle(FEdit, bsSingle);
- EditSetCharCase(FEdit, ecNormal);
- EditSetColor(FEdit, clWindow);
- EditSetCtl3D(FEdit, True);
- EditSetCursor(FEdit, crDefault);
- EditSetDoubleBuffered(FEdit, False);
- EditSetDragCursor(FEdit, crDrag);
- EditSetDragMode(FEdit, dmManual);
- EditSetEnabled(FEdit, True);
- EditSetFontColor(FEdit, clBlack);
- EditSetFontHeight(FEdit, 20);
- EditSetFontName(FEdit, 'Segoe UI');
- EditSetFontPitch(FEdit, fpDefault);
- EditSetFontSize(FEdit, 20);
- EditSetFontStyle(FEdit, []);
- EditSetFont(FEdit, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
- EditSetHelpContext(FEdit, 0);
- EditSetHideSelection(FEdit, True);
- EditSetHint(FEdit, 'Edit Create Hint');
- EditSetMaxLength(FEdit, 0);
- EditSetOEMConvert(FEdit, False);
- EditSetParentColor(FEdit, False);
- EditSetParentCtl3D(FEdit, True);
- EditSetParentFont(FEdit, True);
- EditSetParentShowHint(FEdit, True);
- EditSetPasswordChar(FEdit, #0);
- EditSetPopupMenu(FEdit, nil);
- EditSetReadOnly(FEdit, False);
- EditSetShowHint(FEdit, False);
- EditSetTabOrder(FEdit, 0);
- EditSetTabStop(FEdit, True);
- EditSetTag(FEdit, 0);
- EditSetText(FEdit, 'Edit Create');
- EditSetVisible(FEdit, True);
- EditSetLeft(FEdit, 20);
- EditSetTop(FEdit, 20);
- EditSetHeight(FEdit, 200);
- EditSetWidth(FEdit, 200);
- EditSetBounds(FEdit, 20, 20, 200, 200);
Code:
EditSetEvent(FEdit, nil, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);
Last edited by DelphiBuilder; 24-12-2022 at 13:13.
|