Скачать: CL | DM;

Проблема с созданием меню динамически.   Найти похожие ветки 

← →
Gennadiy ©   (2004-07-23 11:51) [0]

Уважаемые мастера!!!
Подскажите как сделать так чтобы в данной процедуре меню создавалась не в одну строку, в первый столбик:
  //
  ADQMenu.Close;
  ADQMenu.Parameters.ParamByName("USER").Value:=1;
  ADQMenu.open;
  //
  while not (ADQMenu.Eof) do
    begin
     Mnui := TMenuItem.Create(self);
     Mnui.Caption :=ADQMenu.FieldByName("Name").AsString;
     Mnui.OnClick := click;
     Mnui.Tag :=ADQMenu.FieldByName("ID").AsInteger;
     Menu.
     //Menu.Add(mnui);
     ADQMenu.Next;
    end;    // while

---

← →
Reindeer Moss Eater ©   (2004-07-23 12:29) [1]

не в одну строку, в первый столбик:

Использовать в качестве владельца новых итемов крайний левый элемент меню

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.979 c