一个 简单的问题

Question

请问高手：怎样将一个listbox中的所有内容动态添加到popupmenu中?谢谢

Answer 1

示例代码如下(放一个Button,一个PopupMenu,一个ListBox):
请注意,我这里只建立了TMenuItem对象,你还应该在不使用的时候手工释放这些对象.procedure TForm1.Button1Click(Sender: TObject);
Var
  I:Integer;
  Mit:Array of TMenuItem;
begin
if ListBox1.Items.Count>0 then
  setLength(Mit,ListBox1.Items.Count);
for i:=0 to ListBox1.Items.Count-1 do
  begin
  Mit[i]:=TMenuItem.Create(PopupMenu1);
  Mit[i].Name:='ListBoxItem'+IntToStr(i+1);
  Mit[i].Caption:=ListBox1.Items[i];
  PopupMenu1.Items.Add(Mit[i]);
  end;
end;

Answer 2

pilicat(delphi迷) 所说的，就可以解决问题！

Answer 3

List的一个OnChange事件再按二楼的做