請問各位大大 在依據DB而產生的動態選單， 要如何呼叫或產生動態的Function or Event 或者市有各共用的Function來依據 所傳入的 TAG OR Name 來加以辨別使用者按下哪個 選項 進而開啟對應的 Form 請大大們可否告知，小弟該往哪方面去著手 謝謝

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Menus;    type
  TForm1 = class(TForm)
    Button1: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject); // MenuItem1 的 OnClick Event
    procedure MenuItem2Click(Sender: TObject); // MenuItem2 的 OnClick Event
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.MenuItem1Click(Sender: TObject)
begin
  ShowMessaeg('MenuItem 1 click!');
end;    procedure TForm1.MenuItem2Click(Sender: TObject)
begin
  ShowMessaeg('MenuItem 2 click!');
end;    // 這裡動態產生
procedure TForm1.Button1Click(Sender: TObject);
var
  mi: TMenuItem;
begin
  mi := TMenuItem.Create(self);
  mi.Name := 'MenuItem1';
  mi.Caption := 'MenuItem 1';
  mi.OnClick := MenuItem1Click; // 指定 MenuItem 1 的 OnClick Event
  MainMenu1.Items.Add(mi);      mi := TMenuItem.Create(self);
  mi.Name := 'MenuItem2';
  mi.Caption := 'MenuItem 2';
  mi.OnClick := MenuItem2Click; // 指定 MenuItem 2 的 OnClick Event
  MainMenu1.Items.Add(mi);
end;    end.

發表人 - hagar 於 2005/01/19 19:53:28

哇去寫個code才一回頭己經被版主回了~ 不過倒覺得他要期用事件...應改寫一下 而把每個ｃｒｅｔａｅ出來的ｍｅｎｕ都指到同一個

procedure TForm1.MenuItem1Click(Sender: TObject)
var s :String;
begin
  if not (sender is Tmemuitem) then exit;      s := tmenuitem(sender).name;      if s = 'MenuItem1' then
    ShowMessaeg('MenuItem 1 click!')
  else if s = 'MenuItem2' then
    showmessgae('MenuItem 2 click!')
end;

引言:

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Menus;    type
  TForm1 = class(TForm)
    Button1: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject); // MenuItem1 的 OnClick Event
    procedure MenuItem2Click(Sender: TObject); // MenuItem2 的 OnClick Event
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.MenuItem1Click(Sender: TObject)
begin
  ShowMessaeg('MenuItem 1 click!');
end;    procedure TForm1.MenuItem2Click(Sender: TObject)
begin
  ShowMessaeg('MenuItem 2 click!');
end;    // 這裡動態產生
procedure TForm1.Button1Click(Sender: TObject);
var
  mi: TMenuItem;
begin
  mi := TMenuItem.Create(self);
  mi.Name := 'MenuItem1';
  mi.Caption := 'MenuItem 1';
  mi.OnClick := MenuItem1Click; // 指定 MenuItem 1 的 OnClick Event
  MainMenu1.Items.Add(mi);      mi := TMenuItem.Create(self);
  mi.Name := 'MenuItem2';
  mi.Caption := 'MenuItem 2';
  mi.OnClick := MenuItem2Click; // 指定 MenuItem 2 的 OnClick Event
  MainMenu1.Items.Add(mi);
end;    end.

-- 世界上為什麼會有貧窮？因為大部分人都不想和別人分享自己所擁有的 -- Mother Teresa

謝謝 hagar & huwk 的解法 2種不同的方法，增加多方的思維 由於 huwk 的解法 比較符合 自身所需 故分數給 Huwk 大大 對於 Hagar 第一時間的回文， 未能給予分數，深表抱歉。 謝謝大大們不吝提供自身的觀點、解法。