voltree.pas

dephi对Dbgrid控件的显示、控制

unit VolTree;

interface

uses
  Windows, SysUtils, Classes, Controls, ComCtrls, DB,
  ExtCtrls;

type
  TGetNewIDEvent =
    function(Sender: TObject; Table: TDataSet): string of object;

  {TreeView, 铖眍忄眄