TMenueitem mit Basisframe

[BerndS]

Wie in dem Beispiel von Delbor verlinkt fehlt also nur die Zeile zum Erzeugen von NewItem.

Delphi-Quellcode:

procedure TOpenFileFrame.NewPopUpItem;
var 
  NewItem: TMenuItem;
begin
  NewItem := TMenuItem.Create(PopupMenu1); // Create the new item.
  Self.PopupMenu1.Items.Add(NewItem);
  NewItem.Caption := 'Dateierweiterungen 2 ';
  NewItem.Name := 'DateiExtension ' + IntToStr(NewItem.Count);
// NewItem.Tag := 1;
// NewItem.OnClick := PopupMenuItemsClick; // Assign it an event handler.
end;