Submenu Einträge löschen

**Alexander**

Hallo
ich habe ein Problem beim Löschen der Items eines Submenus. Hier mein Quellcode:

Code:

			procedure TEditForm.eigeneBefehle2Click(Sender: TObject);

var

  Ini: TIniFile;

  NeuesMenuItem : TMenuItem;

  i, int : Integer;

begin

   stringliste2 := tStringList.Create;

  try

    Ini:=TIniFile.Create(ExtractFilePath(ParamSTr(0))+'daten\config\befehle.dat');

    Ini.ReadSection('befehle', stringliste2);

 //   eigeneBefehle2.Clear;

    for i:=0 to stringliste2.Count -1 do

     begin

    NeuesMenuItem := TMenuItem.Create(Self);

    NeuesMenuItem.Caption := stringliste2[i];

    NeuesMenuItem.Hint := stringliste2[i];

     NeuesMenuItem.OnClick := unsicht2Click;

    eigeneBefehle2.Add(NeuesMenuItem);

    end;

  if (eigeneBefehle2.Items[0].Caption = '') then

     eigeneBefehle2.Items[0].Destroy;

  finally

    Ini.Free;

  end;

end;

Ich wollte eigentlich die Items mit Clear löschen was aber irgendwie nicht geht. Wie muss ich sie dann löschen??
(Wenn ich sie mit clear löschen und dann wieder alle Items einfüge, so will das Submenü nicht aufgehen!)
Danke schon mla

Submenu Einträge löschen

Submenu Einträge löschen

Forumregeln