Advanced Inno Setup Example

[DelphiBuilder]

TLabelCreate

FLabel:=LabelCreate(WizardForm, alNone, taCenter, True, 'Label Create', clBtnFace, crDefault, crDrag, dmManual, True, nil, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 'Label Create Hint', tlCenter, True, True, True, True, False, 0, True, True, False, 20, 20, 200, 200, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

LabelGetParent(FLabel);
 LabelGetAlign(FLabel);
 LabelGetAlignment(FLabel);
 LabelGetAutoSize(FLabel);
 LabelGetCaption(FLabel);
 LabelGetColor(FLabel);
 LabelGetCursor(FLabel);
 LabelGetDragCursor(FLabel);
 LabelGetDragMode(FLabel);
 LabelGetEnabled(FLabel);
 LabelGetFocusControl(FLabel);
 LabelGetFontColor(FLabel);
 LabelGetFontHeight(FLabel);
 LabelGetFontName(FLabel);
 LabelGetFontPitch(FLabel);
 LabelGetFontSize(FLabel);
 LabelGetFontStyle(FLabel);
 LabelGetHint(FLabel);
 LabelGetLayout(FLabel);
 LabelGetParentColor(FLabel);
 LabelGetParentFont(FLabel);
 LabelGetParentShowHint(FLabel);
 LabelGetShowAccelChar(FLabel);
 LabelGetShowHint(FLabel);
 LabelGetTag(FLabel);
 LabelGetTransparent(FLabel);
 LabelGetVisible(FLabel);
 LabelGetWordWrap(FLabel);
 LabelGetLeft(FLabel);
 LabelGetTop(FLabel);
 LabelGetHeight(FLabel);
 LabelGetWidth(FLabel);
 LabelGetBounds(FLabel);

LabelSetParent(FLabel, WizardForm);
 LabelSetAlign(FLabel, alNone);
 LabelSetAlignment(FLabel, taCenter);
 LabelSetAutoSize(FLabel, True);
 LabelSetCaption(FLabel, 'Label Create');
 LabelSetColor(FLabel, clBtnFace);
 LabelSetCursor(FLabel, crDefault);
 LabelSetDragCursor(FLabel, crDrag);
 LabelSetDragMode(FLabel, dmManual);
 LabelSetEnabled(FLabel, True);
 LabelSetFocusControl(FLabel, nil);
 LabelSetFontColor(FLabel, clBlack);
 LabelSetFontHeight(FLabel, 20);
 LabelSetFontName(FLabel, 'Segoe UI');
 LabelSetFontPitch(FLabel, fpDefault);
 LabelSetFontSize(FLabel, 20);
 LabelSetFontStyle(FLabel, []);
 LabelSetFont(FLabel, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
 LabelSetHint(FLabel, 'Label Create Hint');
 LabelSetLayout(FLabel, tlCenter);
 LabelSetParentColor(FLabel, True);
 LabelSetParentFont(FLabel, True);
 LabelSetParentShowHint(FLabel, True);
 LabelSetShowAccelChar(FLabel, True);
 LabelSetShowHint(FLabel, True);
 LabelSetTag(FLabel, 0);
 LabelSetTransparent(FLabel, True);
 LabelSetVisible(FLabel, True);
 LabelSetWordWrap(FLabel, True);
 LabelSetLeft(FLabel, 20);
 LabelSetTop(FLabel, 20);
 LabelSetHeight(FLabel, 200);
 LabelSetWidth(FLabel, 200);
 LabelSetBounds(FLabel, 20, 20, 200, 200);

LabelSetEvent(FLabel, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);