TOvcCustomEdit

type TOvcCustomEdit = class(TCustomEdit)

protected

  FController: TOvcController;

  FLabelInfo: TOvcLabelInfo;

  function GetAttachedLabel;

  procedure SetController();

  procedure LabelChange();

  procedure LabelAttach();

  procedure PositionLabel;

  procedure CMVisibleChanged(); message;

  procedure OrAssignLabel(); message;

  procedure OrPositionLabel(); message;

  procedure OrRecordLabelPosition(); message;

  DefaultLabelPosition: TOvcLabelPosition;

  procedure CreateWnd; override;

  procedure Notification(); override;

  function ControllerAssigned;

  property LabelInfo: TOvcLabelInfo; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetBounds(); override;

  property AttachedLabel: TOvcAttachedLabel; [r]

  property Controller: TOvcController; [rw]

end;

TOvcCustomEdit

TObject