MenuItems hinzufügen und mit OnClick ausrüsten

[Luckie]

Steht zwar schon tausend und einmal in der DP aber für dich noch mal hier:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    mnuFile: TMenuItem;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure MyMenuItemClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyMenuItemClick(Sender: TObject);
begin
  case (Sender as TMenuItem).Tag of
    0: ShowMessage('Foo');
    1: ShowMessage('bar');
    2: ShowMessage('Foobar');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  sl: TStringList;
  NewItem: TMenuItem;
begin
  sl := TStringList.Create;
  try
    for i := 0  to 9 do
      sl.Add('Eintrag: '+IntToStr(i));
    for i := 0 to sl.Count-1 do
    begin
      NewItem := TMenuItem.Create(MainMenu1);
      NewItem.Caption := sl.Strings[i];
      NewItem.Tag := i;
      NewItem.OnClick := MyMenuItemClick;
      mnuFile.Add(NewItem);  // Der Hauptmenüpunkt vom TMainmenu heißt "mnuFile"
    end;
  finally
    FreeAndNil(sl);
  end;
end;