TBaseECEditBtn

type TBaseECEditBtn = class(TCustomEdit)

protected

  Flags: TEditingDoneFlags;

  FAnyButton: TCustomECSpeedBtnPlus;

  function ChildClassAllowed(); override;

  procedure CMBiDiModeChanged(); message;

  function CreateControlBorderSpacing; override;

  procedure DoEnter; override;

  procedure DoExit; override;

  procedure DoOnChangeBounds; override;

  procedure InitializeWnd; override;

  procedure KeyDown(); override;

  procedure KeyUp(); override;

  procedure SetButtonPosition;

  procedure SetEnabled(); override;

  procedure SetParent(); override;

  procedure SetVisible(); override;

  procedure WMKillFocus(); message;

public

  constructor Create(); override;

  procedure EditingDone; override;

  procedure SetRealBoundRect();

  procedure SetRealBounds();

  property Indent: SmallInt; [rw]

  property Options: TEBOptions; [rw]

  property WidthInclBtn: Integer; [rws]

  property OnVisibleChanged: TOnVisibleChanged; [rw]

end;

TBaseECEditBtn

TObject