Главная страница
    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.012 c
15-1149750722
QuickFinder
2006-06-08 11:12
2006.07.02
Софт для редактирования MP3-файлов


15-1149585086
Ribachok
2006-06-06 13:11
2006.07.02
Как создать отчёт в Delphi 7


15-1148544478
Agent13
2006-05-25 12:07
2006.07.02
2007 Microsoft Office System Beta 2


4-1143711612
Noby
2006-03-30 13:40
2006.07.02
Сообщения чужим окнам


15-1149411044
Галинка
2006-06-04 12:50
2006.07.02
Где найти книги по C#





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский