Listbox in Popup

[Ajin]

Na ich würde mit:

Delphi-Quellcode:

if Listbox1.Items.Count = 0 then
    begin
      PopItem := TMenuItem.Create(Fmain);  // Hauptmenüeintrag erzeugen
      PopItem.Caption := 'Keine Einträge vorhanden';  // Beschriftung
      if popup.items.Count = 0 then Popup.Items.Add(PopItem);
    end
    else
    begin
     PopItem := TMenuItem.Create(Fmain);  // Hauptmenüeintrag erzeugen
     PopItem.Caption := 'zeige Details für';  // Beschriftung
     if popup.items.Count = 1 then Popup.Items.Add(PopItem);
    end;

sicherstellen dass nicht unendlich viele Hauptmenueeinträge erzeugt werden können.