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

Вниз

Можно ли сделать, чтобы в PopUp меню добавлялись записи (+)   Найти похожие ветки 

 
Владий ©   (2004-03-09 14:31) [0]

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

Т.е. - есть таблица с записями - при добавлении новой в popup"е добавляется пункт с названием, взятым из одной ячейки и процедурой копирования в клипборд данных из второй...

Может кто подсказать - как это лучше реализовать?

Хорошей Удачи!
Владий // ICQ: 47659886


 
Stas ©   (2004-03-09 14:40) [1]

Можно !
Только вот процедуры придется описывать в Dll.
While not Table1.eof do
begin
 MI:=TMenuItem.Create(Self)
...
 MI.Caption:=Table1.FieldByName("MyField").asString;
...
...
MI.OnClick:=MyProcedure
PopupMenu1.Items.Add(MI);
Table1.Next;
end;


 
Владий ©   (2004-03-09 16:41) [2]

Работает... Спасибо... А если не таклица, а Query, то
вместо "While not Table1.eof do" что должнобыть? Ибо в таком варианте "зацикливается"...

Хорошей Удачи!
Владий // ICQ: 47659886


 
Vlad ©   (2004-03-09 17:06) [3]


> Владий ©   (09.03.04 16:41) [2]

Тоже самое. И то и другое - наследники TDataSet.
Зацикливаться не будет, если будешь Next делать.



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

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

Наверх





Память: 0.45 MB
Время: 0.031 c
1-1079324097
Kair
2004-03-15 07:14
2004.04.04
Асоциирование файлов с программой


8-1070440001
DAndrew
2003-12-03 11:26
2004.04.04
Как вращать текст относительно центра текстовой области?


14-1078934563
reticon
2004-03-10 19:02
2004.04.04
Нужен драйвер для видеокарты SIS 6215


1-1079682722
Алексей
2004-03-19 10:52
2004.04.04
Отчеты


3-1078392079
user
2004-03-04 12:21
2004.04.04
TADOStoreProc





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