TDataLink

type TDataLink = class(TPersistent)

protected

  procedure ActiveChanged; virtual;

  procedure CheckBrowseMode; virtual;

  procedure DataEvent(); virtual;

  procedure DataSetChanged; virtual;

  procedure DataSetScrolled(); virtual;

  procedure EditingChanged; virtual;

  procedure FocusControl(); virtual;

  function GetActiveRecord; virtual;

  function GetBOF; virtual;

  function GetBufferCount; virtual;

  function GetEOF; virtual;

  function GetRecordCount; virtual;

  procedure LayoutChanged; virtual;

  function MoveBy(); virtual;

  procedure RecordChanged(); virtual;

  procedure SetActiveRecord(); virtual;

  procedure SetBufferCount(); virtual;

  procedure UpdateData; virtual;

  property VisualControl: Boolean; [rw]

  property FirstRecord: Integer; [rw]

public

  constructor Create;

  destructor Destroy; override;

  function Edit;

  procedure UpdateRecord;

  function ExecuteAction(); virtual;

  function UpdateAction(); virtual;

  property Active: Boolean; [r]

  property ActiveRecord: Integer; [rw]

  property BOF: Boolean; [r]

  property BufferCount: Integer; [rw]

  property DataSet: TDataSet; [r]

  property DataSource: TDataSource; [rw]

  property DataSourceFixed: Boolean; [rw]

  property Editing: Boolean; [r]

  property Eof: Boolean; [r]

  property ReadOnly: Boolean; [rw]

  property RecordCount: Integer; [r]

end;

TDataLink

TObject