Listbox in Popup

[Poseidon]

Hallo Delphianer,

ich möchte das die Einträge in einer listbox in ein Untermenü
des popup erscheinen. Also:
Meine Listbox hat (z.B.) 5 Einträge (e1,e2,e3,e4,e5), im popup habe ich das Item
listbox. Im Untermenu sollen dei Listbox Eintäge stehen. Hoffe ihr wisst was ich meine.

danke im voraus

mfg Poseidon

[Luckie]

Geht so:

Delphi-Quellcode:

//
// Klick-Ereignis für dynamische Popmenüeinträge
//
procedure TForm1.PopUpItemClick(Sender: TObject);
var
  PopItem: TMenuItem;
begin
  // Sicherstellen dass der Sender vom richtigen Typ ist
  PopItem := (Sender as TMenuItem);
  // nur wenn Zuwesusng erfolgreich
  if Assigned(PopItem) then
  begin
    ShowMessage(Format('Popupmenüitem Nr. %d wurde angeklickt', [PopItem.Tag]));
  end;
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
  PopItem: TMenuItem;
  LBItem: TMenuItem;
  i: Integer;
begin
    PopItem := TMenuItem.Create(Form1);  // Hauptmenüeintrag erzeugen
    PopItem.Caption := 'Litsbox Items';  // Beschriftung
    PopupMenu1.Items.Add(PopItem);  // an Popupmenü anhängen
    for i := 0 to ListBox1.Items.Count - 1 do
    begin
      LBItem := TMenuItem.Create(Form1);  // Menüitem erzeugen
      LBItem.Caption := Listbox1.Items[i];  // Beschriftung
      LBItem.Tag := i;  // Eigenschaft Tag setzen zur späteren Unterscheidung im OnClick Ereignis
      LBItem.OnClick := PopUpItemClick;  // Klick-Ereignis zuweisen
      PopItem.Add(LBItem); // an Hauptmenüeintrag anhängen
    end;
end;

Ich habe es ausführlich kommentiert. Sollte so verständlich sein.

[Poseidon]

Super, Danke

[Ajin]

Bei jedem Rechtsklick wird immer ein weiterer Hauptmenue Eintrag hinzugefügt, egal ob es schon existiert oder nicht.

[Luckie]

Zitat von Ajin:

Bei jedem Rechtsklick wird immer ein weiterer Hauptmenue Eintrag hinzugefügt, egal ob es schon existiert oder nicht.

Äh, ja und? Was willst du uns jetzt mit deiner Festellung sagen?

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

[Luckie]

Das war ja nur ein Beispielcode und nicht mehr.

[Ajin]

Heeee das sollte ja auch kein Vorwurf sein

Ohne deine Beispiele hätte ich deutlich mehr graue Haare!