引言: 請問各位大大!! 如何使 PopupMenu.item 裡的選項可以動態產生?? ex : 資料來源為 select a from tab1 -> 產生資料若有3 筆則items中 show 3 筆.

你可以如下方式動態增加popupMenu的選項
Var
  mi : TMenuItem;
  i : Integer ;
begin
  PopupMenu1.Items.Clear; 
  // 建立10個選項
  For i := 1 To 10 Do Begin
    mi := TMenuItem.Create(Form1);
    mi.Caption := 'test popupmenu' IntToStr(i) ;
    //mi.Click := SomeClickProcedure ; // SomeClickProcedure是已事先定義好的事件程序
    PopupMenu1.Items.Add(mi);
  End;
end;    

Var
  mi : TMenuItem;
  i : Integer ;
begin
  Query1.SQL.Text := 'Select * From ......' ;
  query1.Open;
  PopupMenu1.Items.Clear; 
  While Not Query1.Eof Do Begin
    mi := TMenuItem.Create(Form1);
    mi.Caption := Query1.FieldByName('Field').AsString;
    //mi.Click := SomeClickProcedure ; // SomeClickProcedure是已事先定義好的事件程序
    PopupMenu1.Items.Add(mi);
  End;
  Query1.Close;
end;