Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- Item1 : TTreeViewItem;
- Item2 : TTreeViewItem;
- begin
- Item1 := TTreeViewItem.Create(Self);
- Item1.Text := 'My First Node';
- Item1.Parent := TreeView1;
- Item2 := TTreeViewItem.Create(Self);
- Item2.Text := 'My Child Node';
- Item2.Parent := Item1;
- end;
- Button := TButton.Create(self);
- Button.Text := 'A Button';
- Button.Position.X := 100;
- Button.Parent := Item2;
- Var
- TempItem:TTreeViewItem;
- Begin
- TempItem := TTreeViewItem.Create(Self);
- TempItem.Text := 'Enter Caption Here';
- TempItem.Parent := TreeView;
- End
- ADOTable.Connection := ADOConnection;
- ADOTable.TableName := 'MenuTree';
- ADOTable.Open;
- ADOTable.First;
- ADOTable.Filter := '(CHFlag=''CURRENT'') AND (Parent=''Tree'')';
- ADOTable.Filtered := True;
- While NOT ADOTable.Eof Do
- Begin
- TempItem := TTreeViewItem.Create(Self);
- TempItem.Text := ADOTable['ItemName'];
- TempItem.Parent := TreeView;
- // TempItem.Free;
- ADOTable.Next;
- End;
- TempItem.Free;
- ADOTable.Close;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement