Hi @all,
ich hab ein Problem mit dem Hinzufügen eines MenüItems.

zusammenfalten · markieren

Delphi-Quellcode:

var
  b: Integer;
  mii: TMenuItem;
begin
  mii:=TMenuItem.Create(Form1.PlugIns);
  try
    for b:=0 to Form10.ListView1.Items.Count -1 do
    begin
      mii.Hint:=Form10.ListView1.Items[b].SubItems.Strings[0];
      mii.Caption:=ChangeFileExt(Form10.ListView1.Items[b].Caption,'');
      mii.OnClick:=Form1.PlugInClick;
      Form1.PlugIns.Add(mii)
    end;
  finally
    mii.Free;
  end;
end;

Wenn ich diesen Code ausführe, dann wird das MenüItem nicht hinzugefügt. Ich hab schon beide Strings vorher überprüft, ob sie leer sind, aber es steht in beiden was drin!
Ich hoffe, dass jemand den Fehler findet, ich versteh jetzt langsam gar nichts mehr!

Lass mal das Free weg. Du gibst ja einen Owner an, der räumt dann für dich auf. Btw. im Beispiel der Delphi-Hilfe haben sie auch kein Free.

Danke!