Динамическое меню

← →
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]

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

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