TOvcController

type TOvcController = class(TOvcComponent)

protected

  FBaseEFOptions: TOvcBaseEFOptions;

  FEntryCommands: TOvcCommandProcessor;

  FEpoch: Integer;

  FErrorPending: Boolean;

  FErrorText: string;

  FHandle: TOvcHWND;

  FInsertMode: Boolean;

  FTimerPool: TOvcTimerPool;

  FOnDelayNotify: TDelayNotifyEvent;

  FOnError: TDataErrorEvent;

  FOnGetEpoch: TGetEpochEvent;

  FOnIsSpecialControl: TIsSpecialControlEvent;

  FOnPostEdit: TPostEditEvent;

  FOnPreEdit: TPreEditEvent;

  FOnTimerTrigger: TTriggerEvent;

  function GetEpoch;

  function GetHandle;

  procedure SetEpoch();

  procedure cWndProc();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure DestroyHandle;

  procedure DoOnPostEdit();

  procedure DoOnPreEdit();

  procedure DoOnTimerTrigger();

  procedure DelayNotify();

  procedure DoOnError();

  function IsSpecialButton(); dynamic;

  procedure MarkAsUninitialized();

  function ValidateEntryFields;

  function ValidateEntryFieldsEx();

  function ValidateTheseEntryFields();

  property ErrorPending: Boolean; [rw]

  property ErrorText: string; [rw]

  property Handle: TOvcHWND; [r]

  property InsertMode: Boolean; [rw]

  property TimerPool: TOvcTimerPool; [r]

published

  property EntryCommands: TOvcCommandProcessor; [rws]

  property EntryOptions: TOvcBaseEFOptions; [rw]

  property Epoch: Integer; [rw]

  property OnError: TDataErrorEvent; [rw]

  property OnGetEpoch: TGetEpochEvent; [rw]

  property OnDelayNotify: TDelayNotifyEvent; [rw]

  property OnIsSpecialControl: TIsSpecialControlEvent; [rw]

  property OnPostEdit: TPostEditEvent; [rw]

  property OnPreEdit: TPreEditEvent; [rw]

  property OnTimerTrigger: TTriggerEvent; [rw]

end;

TOvcController

TOvcComponent

TObject