PopupMenu + SubMenu

[tarasov]

Необходимо программно создать SubMenu и в нём программно создавать item. подскажите пожалуста как это сделать

[mihali4]

Вот, например:

var newitem,newsubitem: TMenuItem;
begin
newitem:=TMenuItem.Create(PopupMenu1);
newitem.Caption:='3';
PopupMenu1.Items.Add(newitem);
newsubitem:=TMenuItem.Create(PopupMenu1);
newsubitem.Caption:='31';
newitem.Add(newsubitem);
end;

И еще, пользуйтесь встроенным хэлпом по менюшкам - там полно примеров.

[tarasov]

спасибо! я понял чево делал неправильно I8)

[SHREK]

Сообщение от mihali4

Вот, например:

var newitem,newsubitem: TMenuItem;
begin
newitem:=TMenuItem.Create(PopupMenu1);
newitem.Caption:='3';
PopupMenu1.Items.Add(newitem);
newsubitem:=TMenuItem.Create(PopupMenu1);
newsubitem.Caption:='31';
newitem.Add(newsubitem);
end;

И еще, пользуйтесь встроенным хэлпом по менюшкам - там полно примеров.

А как жишь теперь узнать newitem.Caption того элемента по которому произведён клик ? У меня всегда получается Caption последнего

[evg_m]

newitem.OnClick:=MenuItemOnClick;

procedure TForm1.MenuitemOnClick(sender: TObject);
begin
showmessage(TMenuItem(sender).Capti on);
end;

[yaver]

у меня похожая ситуация. все помогло. только Caption раздела содержит значение 0,258 и при его считывании получается 0,&258

как избавиться от этого явления?

[BOBAH13]

Сообщение от yaver

у меня похожая ситуация. все помогло. только Caption раздела содержит значение 0,258 и при его считывании получается 0,&258

как избавиться от этого явления?

StringReplace