Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: TMenueitem mit Basisframe

    Delphi
    by BerndS, 10. Jan 2022
  Wie in dem Beispiel von Delbor verlinkt fehlt also nur die Zeile zum Erzeugen von NewItem.
  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);
  //...