...Menüpunkte zur Laufzeit erzeugen?

{
  When you click on button1 the number of installed fonts
  are displayed in the menu by creating the menuitems dynamically
  
  Zur Laufzeit wird die Anzahl der installierten Schriften ausgelesen und
  entsprechend viele Menüpunkte erzeugt
}

type
  TForm1 = class(TForm)
    Button1: TButton;
    label1: TLabel;
    MainMenu1: TMainMenu;
    Fonts1: TMenuItem;
    procedure Fonts1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Fonts1Click(Sender: TObject);
begin
  if Sender  Fonts1 then
    label1.Caption := (Sender as TMenuItem).Caption;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  NewItem: TMenuItem;
  i: Integer;
begin
  for i := 0 to Screen.Fonts.Count - 1 do
  begin
    // Create a new Menu Item
    // Neuen Menüpunkt erzeugen
    NewItem := TMenuItem.Create(Self);
    // Take the Font name as Caption
    // Den Schriftnamen als Caption festlegen
    NewItem.Caption := Screen.Fonts.Strings[i];
    // Assign a OnClick-Event
    // Ein OnClick-Ereignis zuweisen
    NewItem.OnClick := Fonts1Click;
    // Add the new menu
    // Den neuen Menüpunkt hinzufügen
    Fonts1.Add(NewItem);
  end;
end;

printed from
www.swissdelphicenter.ch
developers knowledge base