請問各位: 使用了Tactionlist 及Tmainmenu, 在Taction list edit 中我新增了 三個action 分別是QRY1,QTY2,QTY3, 在even事件同時指向同一個 QRy1onExecute, 再來將Tmainmenu也新增了三個Menuitem 分別是N1,N2,N3, 而在將 even 中action 分別指向指向qry1,qry2,qry3, 而onclick 也會同時指向qry1onExecute, 然而在執行時只有N1 的onclick 有產生作用, 而N2,N3的onclick都無動靜, 不知是不是我設錯了, 還是.... 麻煩各位指點,tks

可能是您某個步驟忘了吧? 表單Text

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ActionList1: TActionList
    Left = 376
    Top = 56
    object Qry1: TAction
      Caption = 'Qry1'
      OnExecute = Qry1Execute
    end
    object Qty2: TAction
      Caption = 'Qty2'
      OnExecute = Qry1Execute
    end
    object Qty3: TAction
      Caption = 'Qty3'
      OnExecute = Qry1Execute
    end
  end
  object MainMenu1: TMainMenu
    Left = 112
    Top = 88
    object test: TMenuItem
      Caption = 'test'
      object menu11: TMenuItem
        Action = Qry1
      end
      object menu21: TMenuItem
        Action = Qty2
      end
      object menu31: TMenuItem
        Action = Qty3
      end
    end
  end
end

表單程式碼

type
  TForm1 = class(TForm)
    ActionList1: TActionList;
    Qry1: TAction;
    Qty2: TAction;
    Qty3: TAction;
    MainMenu1: TMainMenu;
    test: TMenuItem;
    menu11: TMenuItem;
    menu21: TMenuItem;
    menu31: TMenuItem;
    procedure Qry1Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.Qry1Execute(Sender: TObject);
var
  mi:TAction;
begin
  mi:=Sender as TAction;
  ShowMessage(mi.Name);
end;    end.