TCustomLabeledEdit

type TCustomLabeledEdit = class(TCustomEdit)

  class procedure WSRegisterClass; override;

WSRegisterClass - Register this Class for the current Widget Set

protected

  procedure SetParent(); override;

Find who the parents are and store the information

  procedure SetName(); override;

Set the name of the control

  procedure DoPositionLabel; virtual;

DoPositionLabel - perform the code for positioning the label

  procedure Notification(); override;

  procedure CMVisibleChanged(); message;

CMVisibleChanged - control message when Visible property is changed

  procedure CMEnabledChanged(); message;

CMEnabledChanged - control message for a change in the Enabled property

  procedure CreateInternalLabel; virtual;

CreateInternalLabel - method for internally creating label

public

  constructor Create(); override;

Create - constructor for TCustomLabeledEdit: calls inherited Create then sets initial position and label spacing

  property EditLabel: TBoundLabel; [r]

EditLabel - the label attached to the edit box

  property LabelPosition: TLabelPosition; [rw]

LabelPosition - whether above, below, to the left or to the right of the Edit box

  property LabelSpacing: Integer; [rw]

LabelSpacing - the distance between the Label and the Edit box

end;

TCustomLabeledEdit

Custom Labelled Edit

TCustomEdit

TCustomEdit : the base type from which the TEdit Box is derived.

TWinControl

TControl

TLCLComponent

TLCLComponent - base class for LCL components

TComponent,IUnknown,IInterfaceComponentReference

TPersistent

TObject

TCustomEdit

TCustomEdit : the base type from which the TEdit Box is derived.

TCustomLabel

TCustomLabel : the base type from which TLabel is derived.