TJDBLabeledEdit

type TJDBLabeledEdit = class(TCustomLabeledEdit)

protected

  procedure Loaded; override;

  procedure Notification(); override;

  procedure ActiveChange(); virtual;

  procedure KeyDown(); override;

  procedure KeyPress(); override;

  procedure DoEnter; override;

  procedure Change; override;

  function GetReadOnly; override;

  procedure SetReadOnly(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure EditingDone; override;

  property Field: TField; [r]

published

  property DataField: string; [rw]

  property DataSource: TDataSource; [rw]

  property ReadOnly: Boolean; [rw]

  property Action;

  property Align;

  property Alignment;

  property Anchors;

  property AutoSelect;

  property AutoSize;

  property BidiMode;

  property BorderSpacing;

  property BorderStyle;

  property CharCase;

  property Color;

  property Constraints;

  property DragCursor;

  property DragMode;

  property EditLabel;

  property Enabled;

  property Font;

  property LabelPosition;

  property LabelSpacing;

  property MaxLength;

  property ParentColor;

  property ParentFont;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property TabOrder;

  property TabStop;

  property Visible;

  property OnChange;

  property OnClick;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnEditingDone;

  property OnEndDrag;

  property OnEnter;

  property OnExit;

  property OnKeyDown;

  property OnKeyPress;

  property OnKeyUp;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnStartDrag;

  property OnUTF8KeyPress;

end;

TJDBLabeledEdit

TObject