| Class TFrmDbTreeViewDemo (unit TestDbTreeViewMainForm) |
TForm
| Constructors |
| Functions |
procedure BitBtn1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure Selected1Click(Sender: TObject);| Properties |
| Events |
| Variables |
BitBtn1 : TBitBtn;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
CheckBox4 : TCheckBox;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBNavigator1 : TDBNavigator;
DBTreeView1 : TDBTreeView;
Label1 : TLabel;
Label2 : TLabel;
Menu1 : TMenuItem;
N1 : TMenuItem;
Popup1 : TMenuItem;
PopupMenu1 : TPopupMenu;
Query1 : TQuery;
Selected1 : TMenuItem;
Table1 : TTable;
Table1ID : TIntegerField;
Table1Parent : TIntegerField;
Table1Text : TStringField;
Test1 : TMenuItem;| Constructors |
| Functions |
procedure BitBtn1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);Please note that a TTreeView can end the edit-mode when you leave it - therefore the Dataset is not always in edit-mode no more when a DBNavigator-button gets pressed.
procedure CheckBox2Click(Sender: TObject);restore all Items[].Expanded
procedure CheckBox3Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure Selected1Click(Sender: TObject);| Properties |
| Events |
| Variables |
BitBtn1 : TBitBtn;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
CheckBox4 : TCheckBox;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBNavigator1 : TDBNavigator;
DBTreeView1 : TDBTreeView;
Label1 : TLabel;
Label2 : TLabel;
Menu1 : TMenuItem;
N1 : TMenuItem;
Popup1 : TMenuItem;
PopupMenu1 : TPopupMenu;
Query1 : TQuery;
Selected1 : TMenuItem;
Table1 : TTable;
Table1ID : TIntegerField;
Table1Parent : TIntegerField;
Table1Text : TStringField;
Test1 : TMenuItem;