TMenueitem mit Basisframe

[Delbor]

Hi zusammen

Damit versuche ich, in meinem Basisframe (TOpenFileFrame) ein da über den OI erstelltes PopUpMenue um Untermenues zu ergänzen. Diese benennen jeweils bestimmte Dateiendungen, die ich wie folgt deklariert habe:

Delphi-Quellcode:

Const
  ExtendedArray : array[0..7] of string =('alle Dateien', '.pdf', '.sqlite', '.Docx', '.bmp', '.nef', '.jpg', '.png'); //

Um Flüchtigkeitsfehler zu vermeiden, wollte ich diese Array per Code durchlaufen und die einzelnen Strings dem PopUpMenue als Items zuweisen. Da ich das bislang noch nie gemacht habe, wollte ich mit meiner Prozedur NewPopUpItem erstmal einen Versuchsballon starten:

Delphi-Quellcode:

constructor TOpenFileFrame.Create(AOwner: TComponent);
begin
  inherited;
  FReportlist := TStringlist.Create;
  FPopUpModeList:= TStringlist.Create;
  DisplayAllFiles;
  FPathlist := TStringlist.Create;
  FPopUpItemList := TStringlist.Create;
  PnlLookOut.Align := alClient;
  FCmbxItem := False;
  FFileType := 'Alle Dateien';
  FPopUpNode := NIL;
  NewPopUpItem;
end;

procedure TOpenFileFrame.NewPopUpItem;
  var NewItem: TMenuItem;
begin
  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;

Das aber passt Delphi gar nicht. Die erste Zeile in NewPopUpItem erzeugt dabei folgende Fehlermeldung:

Zitat:

---------------------------
Im Projekt HomeOfficerFEProject.exe ist eine Exception der Klasse EMenuError mit der Meldung 'Menü zweimal eingefügt' aufgetreten.
---------------------------

Ich habe bis gerade eben 2 Instanzen dieses Frames verwendet und nun die zweite Instanz aus dem Projekt entfernt. Des weiteren habe ich für die DCUs einen eigenen Ordner im Projektpfad angelegt (und alle DCUs gelöscht). Die Fehlermeldung bleibt dieselbe.

Ein MenueItem mit der Caption 'Dateierweiterungen' exisiert bereits; desshalb nennt sich die neue Caption auch 'Dateierweiterungen 2 '...

Was mache ich falsch?

Gruss
Delbor

[Delbor]

Hi zusammen

Zitat:

Zitat von Delbor (Beitrag 1500367)

Was mache ich falsch?

Tja, ich sags mal so: Das sind meine Beispiele. Und wer lesen kann, ist klar im Vorteil...

Andrerseits: je nach dem kann Add auch eine Funktion sein und das Objekt selbst erzeugen...

Gruss
Delbor

[Uwe Raabe]

Das Beispiel ist insofern etwas unglücklich, weil die lokale Variable NewItem die gleichnamiger Funktion aus Vcl.Menus überdeckt, mit der man ein solches TMenuItem recht komfortabel erstellen kann: https://docwiki.embarcadero.com/Libr....Menus.NewItem

[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;

[himitsu]

Siehe BerndS > das Erstellen, was man einfügen will.

Außerdem ist im Add der Parameter sowieso kein VAR und man hätte daher erkennen müssen, dass dort nichts rauskommen kann.



Und warum wird nicht auf den Compiler gehört, welcher hier bestimmt was vonwegen "Variable ist nicht initialisiert" gesagt haben müsste?