Проблема с созданием меню динамически. [D7, WinXP]
Gennadiy © (2004-07-23 11:51:00)
Уважаемые мастера!!!
Подскажите как сделать так чтобы в данной процедуре меню
создавалась не в одну строку, в первый столбик:
//
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:00) [1]
не в одну строку, в первый столбик:
Использовать в качестве владельца новых итемов крайний левый
элемент меню
Наверх 
ЧАТ |
Орешник |
|
