12-12-2012, 09:13 AM
وعليكم السلام ورحمة الله وبركاته
كود :
var
MyMenu : TMenuItem;
I : Integer;
begin
for I := 0 to Combobox1.Items.Count - 1 do
Begin
MyMenu := TMenuItem.Create(Self);
MyMenu.Action := Act1;
MyMenu.Caption := Combobox1.Items[i];
mm1.Items[1].Add(MyMenu);
End;
end;