TcyBaseButtonedEdit

type TcyBaseButtonedEdit = class(TEditButton)

protected

  CanCallChange: Boolean;

  procedure Change;

  procedure KeyDown(); override;

  procedure KeyUp(); override;

  procedure KeyPress(); override;

  procedure WMPaste(); message;

  procedure OnTimerChangeDelayEvent();

  property CharCase: TEditCharCase; [rw]

  property CharRules: tcyEditRules; [rw]

  property ChangeDelayInterval: Cardinal; [rw]

  property IgnorePressedKey: Boolean; [rw]

  property IgnoreRules: Boolean; [rw]

  property MaxChars: Integer; [r]

  property BreakLineReplace: string; [rw]

  property OnChangeDelay: TNotifyEvent; [rw]

  property OnForbiddenCharPressed: TKeyPressEvent; [rw]

  property OnNotAllowedCharPressed: TKeyPressEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  function ValidRulesForChar();

  procedure ApplyRulesToChar();

  procedure ApplyRulesToText();

  procedure SetTextIgnoringRules();

end;

TcyBaseButtonedEdit

TObject