ehlib 控件中，把label 与 edit 组合在一块使用。解决方法

ehlib 控件中，把label 与 edit 组合在一块使用。

unit LabeledDBEditEh;


interface


uses

  SysUtils, Classes, Controls, StdCtrls, Mask, DBCtrlsEh,Messages, Windows,

  Forms, Menus, Graphics;


type


  { TehBoundLabel }


  TehBoundLabel = class(TCustomLabel)

  private

    function GetTop: Integer;

    function GetLeft: Integer;

    function GetWidth: Integer;

    function GetHeight: Integer;

    procedure SetHeight(const Value: Integer);

    procedure SetWidth(const Value: Integer);

  protected

    procedure AdjustBounds; override;

  public

    constructor Create(AOwner: TComponent); override;

  published

    property BiDiMode;

    property Caption;

    property Color;

    property DragCursor;

    property DragKind;

    property DragMode;

    property Font;

    property Height: Integer read GetHeight write SetHeight;

    property Left: Integer read GetLeft;

    property ParentBiDiMode;

    property ParentColor;

    property ParentFont;

    property ParentShowHint;

    property PopupMenu;

    property ShowAccelChar;

    property ShowHint;

    property Top: Integer read GetTop;

    property Transparent;

    property Layout;

    property WordWrap;

    property Width: Integer read GetWidth write SetWidth;

    property OnClick;

    property OnContextPopup;

    property OnDblClick;

    property OnDragDrop;

    property OnDragOver;

    property OnEndDock;

    property OnEndDrag;

    property OnMouseDown;

    property OnMouseMove;

    property OnMouseUp;

    property OnStartDock;

    property OnStartDrag;

  end;


  TLabelPosition = (lpAbove, lpBelow, lpLeft, lpRight);


  { TCustomLabeledDBEditEh }


  TCustomLabeledDBEditEh = class(TCustomDBEditEh)

  private

    FEditLabel: TehBoundLabel;

    FLabelPosition: TLabelPosition;

    FLabelSpacing: Integer;

    procedure SetLabelPosition(const Value: TLabelPosition);

    procedure SetLabelSpacing(const Value: Integer);

  protected

    procedure SetParent(AParent: TWinControl); override;

    procedure Notification(AComponent: TComponent; Operation: TOperation); override;

    procedure SetName(const Value: TComponentName); override;

    procedure CMVisiblechanged(var Message: TMessage);

      message CM_VISIBLECHANGED;

    procedure CMEnabledchanged(var Message: TMessage);

      message CM_ENABLEDCHANGED;

    procedure CMBidimodechanged(var Message: TMessage);

      message CM_BIDIMODECHANGED;

  public

    { Public declarations }

    constructor Create(AOwner: TComponent); override;

    procedure SetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer); override;

    procedure SetupInternalLabel;

    property EditLabel: TehBoundLabel read FEditLabel;

    property LabelPosition: TLabelPosition read FLabelPosition write SetLabelPosition;

    property LabelSpacing: Integer read FLabelSpacing write SetLabelSpacing;

  end;


  TLabeledDBEditEh = class(TCustomLabeledDBEditEh)

  published

    property Align;

    property Alignment;

    property AlwaysShowBorder;

    property Anchors;

    property AutoSelect;

    property AutoSize;

    property BevelEdges;

    property BevelInner;

    property BevelKind default bkNone;