从数据库中读出数据添加到右键菜单中!!!!!!!!!!!!

Question

请教怎么才能把数据库中的表记录读到PopupMenu1控件右键菜单中

Answer 1

procedure TForm1.AAAClick(Sender: TObject);
begin
  ShowMessage((Sender as TMenuItem).caption);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  a:TMenuItem;
begin
  adoquery1.Close;
  ADOQuery1.SQL.Clear;
  adoquery1.SQL.Add('select * from AAA');
  adoquery1.Open;
  while not ADOQuery1.Eof  do
  begin
    a := TMenuItem.Create(PopupMenu1);
    a.Visible := true;
    a.Caption := adoquery1.FieldValues['id']; 
    a.OnClick := AAAclick;
    popupmenu1.Items.Add(a);  //要加其它菜单下用 popupmenu1.Items[X].add(a);
    ADOQuery1.Next;
  end;
  ADOQuery1.Close;end;

Answer 2

a.OnClick := AAAclick
什么意思

Answer 3

增加动态得菜单使用API比较好，可以比较容易编写出事件。