TKButtonControl

type TKButtonControl = class(TKCustomControl)

protected

  FStates: TKButtonStates;

  procedure DrawCaption(); virtual;

  procedure DrawFocusRect(); virtual;

  procedure DrawInterior(); virtual; abstract;

  function GetSkinned; virtual;

  procedure Loaded; override;

  procedure KeyDown(); override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure PaintToCanvas(); override;

  procedure UpdateSize; override;

  procedure WndProc(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure AfterConstruction; override;

  procedure Invalidate; override;

  property Cancel: Boolean; [rw]

  property Default: Boolean; [rw]

  property HAlign: TKHAlign; [rw]

  property ModalResult: TModalResult; [rw]

  property Skinned: Boolean; [r]

  property VAlign: TKVAlign; [rw]

  property WordWrap: Boolean; [rw]

published

  property Action;

  property Anchors;

  property Caption;

  property Constraints;

  property DoubleBuffered;

  property DragCursor;

  property DragKind;

  property DragMode;

  property Down: Boolean; [rw]

  property FocusRect: Boolean; [rw]

  property Enabled;

  property Font;

  property IsCheck: Boolean; [rw]

  property ParentDoubleBuffered: Boolean;

  property ParentFont;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property TabOrder;

  property TabStop;

  property Visible;

  property OnClick;

  property OnContextPopup;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDock;

  property OnEndDrag;

  property OnEnter;

  property OnExit;

  property OnKeyDown;

  property OnKeyPress;

  property OnKeyUp;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnStartDock;

  property OnStartDrag;

end;

TKButtonControl

TKCustomControl

TObject