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

Вниз

Динамическое меню   Найти похожие ветки 

 
Woprosnik   (2005-06-03 10:30) [0]

Программно создаю пункты меню. Теперь на каждый смозданный пункт надо повесить обработчик события OnClick. Подскажите пожалуйста, как это можно сделать?

Собственно действие на клик по любому пункту должно быть одно, просто передаются в него разные параметры.


 
Sergey Masloff   (2005-06-03 10:35) [1]

Просто присвоить событию указатель на процедуру.


 
Woprosnik   (2005-06-03 10:39) [2]

Пытаюсь так сделать, но не срабатывает. Хотя, возможно, я что-то делаю не так. Вот код создания:

 While not Form1.pFIBDataSet5.Eof do begin
      NewItem:= TMenuItem.Create(Self);
      NewItem.Caption:= Form1.pFIBDataSet5Tip.AsString;
      NewItem.ImageIndex:= 0;
      PopupMenu1.Items.Add(NewItem);
      PopupMenu1.Items.OnClick:= N1Click;
      Form1.pFIBDataSet5.Next;
   end;


 
Плохиш ©   (2005-06-03 10:54) [3]

Обработчик надо присваивать каждому создаваемому пункту меню


NewItem.OnClick := ...


 
Woprosnik   (2005-06-03 12:05) [4]

Большое спасибо.
Еще один вопрос. Как определить какой из пунктов меню выбрано? Как я понимаю, подобия свойства SelectIndex у PopupMenu нет.


 
Gero ©   (2005-06-03 12:09) [5]

Что значит «выбрано»?


 
Pearled ©   (2005-06-03 12:11) [6]

If TMenuItem(Sender).Caption = ... then ...


 
Woprosnik   (2005-06-03 12:11) [7]

По которому сделан клик.
Динамически фйормируется меню. В программе пользователь открывает еге, щелкает по пункту меню. Как мне определеить в программе, по какому пункту был сделан клик?


 
Woprosnik   (2005-06-03 12:49) [8]

Всем большое спасибо.



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

Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.039 c
1-1117622966
Leonid
2005-06-01 14:49
2005.06.29
Запуск DOS-приложения


11-1099458028
miek
2004-11-03 08:00
2005.06.29
проблема с комбобоксами


3-1116522241
PalladinA
2005-05-19 21:04
2005.06.29
Похоронил ли Delphi 2005 технологию BDE?


3-1116504029
makaron_x
2005-05-19 16:00
2005.06.29
Как добраться к значению поля через отображающий его DBText?


1-1118318165
Cat
2005-06-09 15:56
2005.06.29
TComboBox ItemIdex





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