Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];

Вниз

PopupMenu+DBTable формирование меню на основе таблици   Найти похожие ветки 

 
Lex_! ©   (2006-05-04 11:50) [0]

Куда копать скажите?.. не могу что то сообразить ..


 
Sergey13 ©   (2006-05-04 11:52) [1]

2 Lex_! ©   (04.05.06 11:50)
>Куда копать скажите?
От забора и до вечера.


 
ЮЮ ©   (2006-05-04 12:00) [2]

<очищаем PopupMenu>
DataSet.First;
While not DataSet.EOF do begin
 <если текущая запись должна быть включена, то вкючаем>
 DataSet.Next;
end;


 
ЮЮ ©   (2006-05-04 12:02) [3]

Кстати, что TDBTable это что за зверь такой?


 
MsGuns ©   (2006-05-04 12:16) [4]

Может, ему в меню надо запихать названия столбцов ?


 
ЮЮ ©   (2006-05-04 12:26) [5]

Может, поэтому прав Sergey13 ©   (04.05.06 11:52) [1] :)


 
Lex_! ©   (2006-05-04 15:40) [6]

Запихать надо с одного поля данных. DBTable = ADOTable
Неизвестно сколько их должно быть, этих пунктов меню... а для каждого пункта нужно я так понимаю TMenuItem или один такой элемент после добавления можно снова использовать для следующей записи?


 
Johnmen ©   (2006-05-04 15:45) [7]

Ничто же не мешает насоздавать столько TMenuItem"ов, сколько надо?


 
Lex_! ©   (2006-05-04 16:16) [8]

Тоесть теоретически:

> mnu:array of TMenuItem
> SetLength(mnu,AdoTable.RecordCount);


должно работать? (в менюитеме есть добавление такого массива...)


 
Johnmen ©   (2006-05-04 16:34) [9]

Зачем ещё какой-то массив???
Уже отвечено ЮЮ ©   (04.05.06 12:00) [2]


 
Lex_! ©   (2006-05-04 16:37) [10]

Тогда пример конкретно вместе с добавлением если можно. ибо до меня не доходит.


 
Lex_! ©   (2006-05-04 16:46) [11]

Точнее меня интерисует само добавление как таковое к меню. динамическое когда неизвестно сколько их всего ..


 
Johnmen ©   (2006-05-04 17:01) [12]

var MenuItem : TMenuItem;

MenuItem:=TMenuItem.Create(PopupMenu);
MenuItem.Caption:="Lex_!_1";
PopupMenu.Items.Add(MenuItem);

MenuItem:=TMenuItem.Create(PopupMenu);
MenuItem.Caption:="Lex_!_2";
PopupMenu.Items.Add(MenuItem);

MenuItem:=TMenuItem.Create(PopupMenu);
MenuItem.Caption:="Lex_!_3";
PopupMenu.Items.Add(MenuItem);

.........


 
Lex_! ©   (2006-05-05 09:14) [13]

Во. я про что и спрашивал, Ндо на каждый элемент меню, создавать объект, или одного хватит. Одного значит хватит. вопросов нет всем спасибо :)


 
Johnmen ©   (2006-05-05 09:24) [14]


>  на каждый элемент меню, создавать объект,


Именно так.


 
Lex_! ©   (2006-05-05 09:47) [15]

Нет, Создается элемент меню, но после добавления то его снова использовать можно, этот же объект создаеш заново и добавляеш.
Имелось ввиду
mn1
mn2
mn3
и т.д. а можно обойтись одним ..:)


 
Johnmen ©   (2006-05-05 09:50) [16]


> но после добавления то его снова использовать можно


Ни его, ёлы-палы, а вспомогательную переменную!


> этот же объект создаеш заново и добавляеш.


Не этот же! А новый, того же класса!


 
Хозяин   (2006-05-05 09:56) [17]

А по клику анализируй либо по caption, либо
...
MenuItem.tag:=1;
...
MenuItem.tag:=2;
...
по тегу


 
Lex_! ©   (2006-05-07 07:40) [18]

По тегу я сделал, до этого то я додумался.:)



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

Форум: "Базы";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.009 c
15-1149648990
pargo
2006-06-07 06:56
2006.07.02
Доигрался с AppInit_DLLs :((


2-1150265000
Maxim_82
2006-06-14 10:03
2006.07.02
Помогите установить компонеты DSPack


3-1146422646
Yaros-hoi
2006-04-30 22:44
2006.07.02
Относительные и абсолютные пути


15-1149573291
blackcrazzy
2006-06-06 09:54
2006.07.02
Михаил Фленов aka Horrific


2-1150446404
Gon
2006-06-16 12:26
2006.07.02
StringGrid





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский