[DeadC0der]

Hi everyone

I'm just having problem with skinning popup menus when I simply try to dynamically add a New MenuItem to it actually , I have to clear all the items except the first each time OnPopUp event dispatch then create a new items here is an example of what I'm talking about

Code:

procedure TForm3.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);

end;

where the first item get skinned automatically the others doesn't :wacko:

any help would be much appreciated

Best Regards

[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