View Single Post
  #2  
Old 21-12-2022, 05:33
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post 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);
Attached Images
File Type: png Edit Create.png (3.3 KB, 179 views)
Attached Files
File Type: 7z Edit Create.7z (538.4 KB, 13 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:13.
Reply With Quote
The Following 4 Users Say Thank You to DelphiBuilder For This Useful Post:
ADMIRAL (21-12-2022), audiofeel (21-12-2022), Gehrman (21-12-2022), Razor12911 (23-12-2022)