Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

TMenuItem - добавить новый элемент выпадающего меню   Найти похожие ветки 

 
kserg@ukr.net   (2002-07-01 17:37) [0]

Привет.
Нужно програмно добавить нов.эл-т в выпадающее меню.
Делаю так. Бросил на форму PopupMenu1 с единственным эл-том
и далее

var NewMenuItem: TMenuItem;
Begin
NewMenuItem:= NewItem("Add "+MainForm.quTemp1.FieldByName("Project").AsString, 0, False, True, nil, 0, "None");
NewMenuItem.Tag:= MainForm.quTemp1.FieldByName("Code").AsInteger;
MenuProject.Add(NewMenuItem);


алгоритм работает - пункты в меню добавляются, но меню получается c подменю, а хотелось бы иметь меню обычного вида.
чё я не так делаю?

спасибо.


 
Игорь Шевченко ©   (2002-07-01 17:52) [1]

var
NewItem : TMenuItem;
begin
NewItem := TMenuItem.Create(Self);
....Присвоение свойств NewItem
PopupMenu.Items.Add(NewItem);
end;


 
kserg@ukr.net   (2002-07-01 17:58) [2]

спасибо



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

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
14-47674
Kozerog
2002-06-13 13:46
2002.07.15
Parent:=(Self); ???


1-47329
dihlos
2002-07-01 13:31
2002.07.15
Как изменить обработчик сообщения WM_CLOSE у другого приложения


3-47202
MWM
2002-06-19 18:36
2002.07.15
Редактирование таблицы DBGrid


3-47221
Я_Чайник
2002-06-20 08:56
2002.07.15
Неповторяющиеся данные в DBGrid


8-47618
Королев
2002-02-06 11:39
2002.07.15
как программировать тв тюнер video shuttle II?