Главная страница
    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.015 c
2-1149847180
VitV
2006-06-09 13:59
2006.07.02
Хранения данных в из DBRichedit.


15-1149290299
SergProger
2006-06-03 03:18
2006.07.02
Посоветуйте язык


2-1149862589
Serzh
2006-06-09 18:16
2006.07.02
Keys


6-1140336724
Новочеркасский Волк
2006-02-19 11:12
2006.07.02
Клиент-Сервер-Мышь


4-1143631694
apic
2006-03-29 15:28
2006.07.02
Извлекаю иконку с помощью ExtractAssociatedIcon, как ее потом





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