[CheshireCat]

Hello and welcome to the AC-Forum,

the following code snippet should work:

Code:

procedure TForm2.pm1Popup(Sender: TObject);
var i:Integer;
mi:TMenuItem;

begin
for i:=pm1.Items.Count-1 downto 1 do
pm1.Items.Free;
mi:=TMenuItem.Create(pm1);
mi.Caption:=inttostr(Random(10));
pm1.Items.Add(mi);
sSkinManager1.SkinableMenus.HookPopupMenu(pm1, True); // <-- Add this line
end;

I hope I could help you …

[DeadC0der]

Thanx a lo bro 😀

I really appreciate your concern 😛 now it works like crystal lOl

kudos 2 ya :a3:

[Author]

Posts