Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

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

← →
Stocker   (2003-06-24 06:39) [0]

Формирую меню динамически
for i:=0 to Count do
begin
NewItem := TMenuItem.Create(Self);
NewItem.Caption:=Array[i];
NewItem.OnClick:=MenuBookClick;
NewItem.Tag:=i+1;
MBookmarks.Add(NewItem);
end;
ВОПРОС: Как узнать по какому из созданых динамически меню кликнулись?
(искал в TMenuItem что-нть типа ItemIndex не нашел)
Заранее спасибо

---

← →
MBo ©   (2003-06-24 06:46) [1]

а Tag для красоты задаешь?

---

← →
LexusR ©   (2003-06-24 06:52) [2]

в процедуре проверь Tag как сказал MBo

procedure MenuBookClick(Sender : TObject)
begin
case TMenuItem(Sender).Tag
0: something;
1: something1;
2: something2;
....
end;
end


---

← →
Stocker   (2003-06-24 07:44) [3]

Спасибо, сработало!

---

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

Текущий архив: 2003.07.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c