TFZControl

type TFZControl = class(TCustomControl)

protected

  function CreateAppearance; virtual;

  procedure PaintBorder; virtual;

  procedure Paint; override;

  procedure SetDown(); virtual;

  procedure RealSetText(); override;

  procedure AdjustClientRect(); override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure Change; virtual;

  procedure DoTheKeyDown(); virtual;

  procedure DoTheKeyPress(); virtual;

  procedure DoClearKey; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  property Down: Boolean; [rw]

  property AppearanceDown: TFZAppearance; [rw]

  property MouseState: TFZMouseState; [rw]

  property OnChange: TNotifyEvent; [rw]

published

  property Appearance: TFZAppearance; [rw]

  property Align;

  property Anchors;

  property BorderSpacing;

  property Enabled;

  property BorderWidth;

  property Visible;

  property TabStop;

  property TabOrder;

  property Cursor;

  property ShowHint;

  property Hint;

  property OnDockDrop;

  property OnDockOver;

  property OnEnter;

  property OnExit;

  property OnGetSiteInfo;

  property OnKeyDown;

  property OnKeyPress;

  property OnKeyUp;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnUnDock;

  property OnClick;

  property OnConstrainedResize;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDock;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnResize;

  property OnStartDock;

  property OnStartDrag;

end;

TFZControl

TObject