| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подскажите плз, есть динамически формируемые TMenuItem
Mar gel © (2004-09-28 09:33:00)Как можно узнать, на какой Item кликнул пользователь? Код ниже:
for i:=1 to 20 do
begin
MyPopUpItem := TMenuItem.Create(Self);
MyPopUpItem.Caption:='Item'+IntToStr(i);
MypopUpItem.OnClick := N5Click;
end;
procedure Tmf.N5Click(Sender: TObject);
begin
Showmessage(N5.Items.Caption); //ес-но не работает :(
end;
Mar gel (2004-09-28 10:08:00) [1]Спасибо!!!
Showmessage(TMenuItem(Sender).Caption+' '+IntToStr(TMenuItem(Sender).Tag));
VMcL (2004-09-28 09:54:00) [2]>> Mar gel (28.09.04 09:33)
if Sender is TMenuItem then
ShowMessage(TMenuItem(Sender).Caption);
Cobalt (2004-09-28 09:36:00) [3]а что такое N5?
P.S. Конечно не работает. Оно, наверняка, даже не компилируется?
Items property (TMenu)
Because Items is the default property of TMenuItem, the Items property of TMenu can be treated as an indexed array of menu items that describe the individual items in the menu. That is, instead of writing
FirstItem := Menu1.Items.Items[0];
you can use
FirstItem := Menu1.Items[0];
P.P.S.
Вообще-то, рекомендуется использовать свойство Tag
| |
