menubar добавление строк

[grafgrial]

Только начал работать в FM в XE2. Не совсем понятно как добавить в MenuBar и TreeView строки. Подскажите...

Не вкурсе?

3. Не флудить. Флудом (пустой болтовней) считается все, не относящееся к теме. Здесь вам не чат, а форум серьезно увлеченных людей.
К флуду относится также:
- "апание" темы, т.е. попытка привлечь к теме повышенное внимание за счет других, чужих тем;
- необоснованное (не требующееся по смыслу) цитирование предыдущего поста;
- оверквотинг (избыточное цитирование). При цитировании имеет смысл оставлять в цитате только тот текст, который имеет непосредственное отношение к вашему ответу.
- размещение своих постов подряд друг за другом - пользуйтесь кнопкой "Правка" для изменения своего сообщения. Исключение составляют лишь случаи, когда с момента написания предыдущего поста прошло не менее дня.

[veniside]

// --  --
procedure TForm1.FormCreate(Sender: TObject);
var
  mi: TMenuItem;
  ti: TTreeViewItem;
begin
  mi := TMenuItem.Create(Self);
  mi.Text := 'Hi there!';
  MenuBar1.AddObject(mi);
  //
  ti := TTreeViewItem.Create(Self);
  ti.Text := 'Hi, TV!';
  TreeView1.AddObject(ti);
end;

а вобще, т.к. обезъянки всеядны, никто не мешает добавлять что угодно куда угодно:

// --  --
procedure TForm1.FormCreate(Sender: TObject);
var
  edit: TEdit;
begin
  edit := TEdit.Create(Self);
  edit.Text := 'Thy Edit';
  //
  MenuBar1.AddObject(edit);

ИЛИ

  TreeView1.AddObject(edit);
end;

[grafgrial]

спасибо, как еще в treeview например передать скрытый параметр например ссылку
как TreeView1.AddObject(ti); вот этому items еще передать значение например tag onclick dblclick

[veniside]

> как мне добавить в эту уже добавленую ветку children

Можно как и раньше, через Items (предполагается, что дерево чистое):

procedure TForm1.FormCreate(Sender: TObject);
var
  ti: TTreeViewItem;
  child: TTreeViewItem;
begin
  ti := TTreeViewItem.Create(Self);
  ti.Text := 'Hi, TV!';
  TreeView1.AddObject(ti);
  //
  child := TTreeViewItem.Create(Self);
  child.Text := 'Child Node';
  TreeView1.Items[0].AddObject(child);
end;

Вобще, способов много. Главное, как-нибудь получить родительскую ноду, а потом у неё вызвать AddObject().