TplDBTreeView

type TplDBTreeView = class(TplDBTreeViewBase)

protected

  function GetParentIndex();

  function DataSetAvailable;

  procedure Loaded; override;

  procedure Notification(); override;

  procedure Added(); override;

  procedure Edit(); override;

  procedure Change(); override;

  procedure Delete(); override;

  procedure Moved(); override;

  procedure StartMoving(); override;

  procedure NodeAfterPost;

  procedure CheckDelete;

  procedure CheckAppend;

  procedure SetParent(); override;

  procedure DoPaint; override;

  procedure SetDestroyingState; override;

  procedure ClearDestroyingState; override;

  procedure SetInternalAdd; override;

  procedure ClearInternalAdd; override;

  procedure BeginReload;

  procedure EndReload;

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetNodeByID();

  procedure SelectNodeByID();

  procedure Rebuild;

  procedure BeginUpdate;

  procedure EndUpdate;

  procedure RemoveBookmark();

  procedure SetBookmark();

  property GridSelectedRows: TBookmarkList; [rw]

published

  property DataSource: TDataSource; [rw]

  property DBKeyField: string; [rw]

  property DBTextField: string; [rw]

  property DBParentField: string; [rw]

end;

TplDBTreeView

TplDBTreeViewBase

TObject