| Class TRegisterTable (unit RegisterTable) |
TTable
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure CheckForChange(Sender: TObject);
procedure InternalClose;
procedure Loaded;
procedure RegisterCallback;
procedure SetCheckInterval(Value: word);
procedure SetTableNotify(Value: boolean);Set the check interval for the event.
procedure UnregisterCallback;| Properties |
property TableChangeNotify : boolean
property TableCheckInterval : word| Events |
event OnTableChange : TOnTableChange| Variables |
TableProperties : CURProps;
FChangeTableNotify : boolean;
FCheckInterval : word;
FCloneCur : hDBICur;
FOnTableChange : TOnTableChange;
FRegistered : boolean;
FValueOnStartup : boolean;
pDummyBuf : pBYTE;
Timer : TTimer;| Constructors |
constructor Create(AOwner: TComponent);If the FOnTableChange event is assigned a value, fire the event...
| Functions |
destructor Destroy;Only surface the event when not in design mode...
procedure CheckForChange(Sender: TObject);This procedure, by checking the validity of the cursor, will fire off the cbTABLECHANGED callback. You can change this procedure to best fit your needs.
procedure InternalClose;Unregister the callback...
procedure Loaded;Free the TTimer object...
procedure RegisterCallback;Free the memory for the dummy record buffer...
procedure SetCheckInterval(Value: word);The below code is the best possible tested for LOCAL tables. If your application is only used locally, you can remove DbiCheckRefrech.
procedure SetTableNotify(Value: boolean);Protected declarations
Set the check interval for the event...
procedure UnregisterCallback;If the table is being closed, unregister the callback first...
| Properties |
property TableChangeNotify : boolean
property TableCheckInterval : word| Events |
event OnTableChange : TOnTableChangePublished declarations
| Variables |
TableProperties : CURProps;Public declarations
FChangeTableNotify : boolean;Private declarations
FCheckInterval : word;
FCloneCur : hDBICur;
FOnTableChange : TOnTableChange;
FRegistered : boolean;
FValueOnStartup : boolean;
pDummyBuf : pBYTE;
Timer : TTimer;