| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание элементов PopupMenu в Runtime + назначение событий. [D7, XP]

_Sergey_ ©   (2006-01-07 14:39:00) 

Подскажите, как это можно сделать. Заранее неизвестно, сколько элементов нужно создать. При клике на какой-нибудь элемент должно запускаться событие, которое должно знать, с какого элемента был клик. Или хотя бы его индекс.

---

_Sergey_   (2006-01-07 19:13:00) [1]

> M:=(Sender as TMenuItem);

Вот до этого я и не догадался. Пытался писать Sender.Index, а его не было... :-(. Спасибо!

---

Гаврила   (2006-01-07 16:19:00) [2]

> должно запускаться событие, которое должно знать, с
> какого элемента был клик. Или хотя бы его индекс.


А собственно у тебя в обработчике события есть параметр Sender: TObject
это и есть тот эдемент меню, с которого клик.
procedure TForm1.MenuClick(Sender: Tobject);
var
 M: TMenuItem;
begin
 M:=(Sender as TMenuItem);
 case M.Tag of
   1: Procedure1();
   2: Procedure2();
   3: Procedure3();
   4: Procedure4();
   5: Procedure5();
 end;//case
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 M: TMenuItem;
 I: integer;
begin
 for i:=1 to 5 do
   begin
     M:=TMenuItem.Create(Self);
     PopupMenu1.Items.Add(m);
     M.Caption:=Format('Пункт %d', [I]);
     M.OnClick:=MenuClick;
     M.Tag:=I;
   end;
end;

---

Наверх