Class TfrmEditMaster (unit TestEditMasterForm) |
Inherits from
TForm
procedure Button1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
function DbTreeLookupComboBox2CreateTreeSelect: TTreeSelect;
procedure DbTreeLookupComboBox3AcceptNode(Node: TTreeNode;
var Accept: Boolean);
no warning please, this event is for documentation only } { We can use this event to create a special TreeSelect-form for
DbTreeLookupComboBox2.
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
The first dropdown of DbTreeLookupComboBox1 gets faster too:
procedure tblDetailCalcFields(DataSet: TDataSet);
We will only accept the leaves of the tree: } { Obsolete since version 0.
Bevel1 : TBevel;
Button1 : TButton;
CheckBox1 : TCheckBox;
DBGrid2 : TDBGrid;
DBLookupComboBox1 : TDBLookupComboBox;
DBNavigator1 : TDBNavigator;
DBNavigator2 : TDBNavigator;
DBNavigator3 : TDBNavigator;
DbTreeLookupComboBox1 : TDbTreeLookupComboBox;
to test calculated fields
DbTreeLookupComboBox2 : TDbTreeLookupComboBox;
DbTreeLookupComboBox3 : TDbTreeLookupComboBox;
dsDetail : TDataSource;
dsMaster : TDataSource;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
tblDetail : TTable;
tblDetailID : TIntegerField;
tblDetailParent : TIntegerField;
tblDetailTestCalc : TStringField;
tblDetailText : TStringField;
tblMaster : TTable;
tblMasterNumber : TAutoIncField;
tblMasterTestLookup : TIntegerField;
tblMasterText : TStringField;
TreeView1 : TTreeView;
procedure Button1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
function DbTreeLookupComboBox2CreateTreeSelect: TTreeSelect;
procedure DbTreeLookupComboBox3AcceptNode(Node: TTreeNode;
var Accept: Boolean);
no warning please, this event is for documentation only } { We can use this event to create a special TreeSelect-form for
DbTreeLookupComboBox2.
TDbTreeLookupComboBox.OnCreateTreeSelect gets called before the first
dropdown. This form will get destroyed at TfrmEditMaster.Destroy: } { result := TSampleTreeSelect.Create(self);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
The first dropdown of DbTreeLookupComboBox1 gets faster too:
procedure tblDetailCalcFields(DataSet: TDataSet);
We will only accept the leaves of the tree: } { Obsolete since version 0.4 because dtAcceptLeavesOnly in Options: } { Accept := not Node.HasChildren;
Bevel1 : TBevel;
Button1 : TButton;
CheckBox1 : TCheckBox;
DBGrid2 : TDBGrid;
DBLookupComboBox1 : TDBLookupComboBox;
DBNavigator1 : TDBNavigator;
DBNavigator2 : TDBNavigator;
DBNavigator3 : TDBNavigator;
DbTreeLookupComboBox1 : TDbTreeLookupComboBox;
to test calculated fields
DbTreeLookupComboBox2 : TDbTreeLookupComboBox;
DbTreeLookupComboBox3 : TDbTreeLookupComboBox;
dsDetail : TDataSource;
dsMaster : TDataSource;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
tblDetail : TTable;
tblDetailID : TIntegerField;
tblDetailParent : TIntegerField;
tblDetailTestCalc : TStringField;
tblDetailText : TStringField;
tblMaster : TTable;
tblMasterNumber : TAutoIncField;
tblMasterTestLookup : TIntegerField;
tblMasterText : TStringField;
TreeView1 : TTreeView;