Menüeintrag in bestehendes Menü einfügen?

[schöni]

Hallo,

ich habe folgendes Problem:

Ein MainMenu nach folgendem Muster:

Delphi-Quellcode:

//  Datei      Bearbeiten        Tools                          Hilfe
//  -Neu       -Rückgängig       -Tools einrichten              -Verwenden der Hilfe
//  -Öffnen                      -<ein weiterer Eintrag>        -Index
//  -Beenden

Nun will ich vor <ein weiterer Eintrag> das angemeldete Dienstprogramm einfügen, faktisch zwischen
"Tools einrichten" und "<ein witerer Eintrag>".


So sieht mein Quelltext aus:

Delphi-Quellcode:

   if ToolsOptDlg.Execute then
   begin
      //Hier wird der neue Menüpunkt angelegt;
      // := ToolsOptDlg.Menuname;
      // := ToolsOptDlg.CommandLine;
      if MainMenu.Items.Items[IDE_MEMU_TOOLS_COMMANDS].Count > IDE_MENU_TOOLS_BASE then
      for Index := MainMenu.Items.Items[IDE_MEMU_TOOLS_COMMANDS].Count-1 downto IDE_MENU_TOOLS_BASE do
      MainMenu.Items.Items[IDE_MEMU_TOOLS_COMMANDS].Delete(Index);
      FCommandTools.Assign( ToolsOptDlg.Tools );
      //Die folgenden Zeilen entsprechen der Methode AddToolsToMenu
      //Aber hier kommt nur ein neues Tool hinzu
      CommandTool   := TMenuItem.Create(self);
      CommandTool.Caption := GetMenuName(0);
      CommandTool.OnClick := CommandToolClick;
      MainMenu.Items.Items[IDE_MEMU_TOOLS_COMMANDS].Insert(1, CommandTool);
   end;

Mein Menüeintrag, der das Dienstprogramm beschreibt, überschreibt jedoch den Menüeintrag namens <"ein weiterer Eintrag>", der hierdurch verschwindet.

Wenn ich die Add Methode verwende, habe ich das gleiche Problem, obwohl ich mit Add() erwarte der Name meines Dienstprogrammes dann an das Ende dieses Menüs angehängt wird.

Was muss ich anders machen?

"<ein weiterer Eintrag>" steht nur bespielhaft für eine nachfolgende Funktion meines Programmes.

[Micha88]

Zitat:

Wenn ich die Add Methode verwende, habe ich das gleiche Problem, obwohl ich mit Add() erwarte der Name meines Dienstprogrammes dann an das Ende dieses Menüs angehängt wird.

Aja, "Add()" hat in dem Sinne nix mit "dranhängen an einen bestehenden Eintrag" zu tun =)

Wenn ich das richtig verstanden habe:

Speichere den aktuellen Eintrag im Menu in einer Stringvariablen und mach dann so:

Delphi-Quellcode:

{...}.Add(sStringVariable + sDerDienst

[schöni]

Hallo

Danke für die schnelle Antwort.

Die Ursache meines Fehlers war aber noch was ganz Anderes, nämlich diese Zeile:

Delphi-Quellcode:

for Index := MainMenu.Items.Items[IDE_MEMU_TOOLS_COMMANDS].Count-1 downto IDE_MENU_TOOLS_BASE do
      MainMenu.Items.Items[IDE_MEMU_TOOLS_COMMANDS].Delete(Index);

Wenn ich die weglasse, klappt das auch nit meiner Insert Anweisung. Durch das Delete abe ich den nachfolgenden Menüeinrag gelöscht und wenn ich dann einen Eintrag für ein Tool hinzufügen will, ist natürlich (wegen Delete) der Nachfolgende Eintrag weg. :wall:

Mit dem Add, so wie Du das beschrieben hast, gehrt das leider eh nicht, weil die Add Methode von TMenuitem einen TMenuitem, nicht String übergeben haben will.

Trotzdem Danke! :hi:

Nun suche ich eine geeignete Methode, um hinzugefügte Tools passend zu speichern, damit ich bei Neustart die hinzu gefügten Tools wieder im Menü sehe. Ist wahrscheinlich ein neuer Thread dafür fällig. Werd es mal mit Ini Datei probieren. Hab das bisher über Stringliste gemacht, scheint aber zu umständlich zu werden. Werde morgen weiter tüfteln.