Listbox-Einträge > MainMenu

Daniel_100 · Beiträge: 63 Win XP D3 Prof, D6 Enterprise

Hallo!

Kann man Einträge, z.B. aus Listboxen, in ein MainMenu einbauen?: :roll:

Wenn ja, was für ein Code muss dann Button1Click zugewiesen werden?

Danke

Raphael O. · Beiträge: 1596 VS 2013

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var item:tmenuitem;
begin
item:=tmenuitem.create(mainmenu1);
item.caption:=listbox1.items[integervar];
mainmenu1.Items[0].add(item);
oder:
mainmenu1.Items.add(item);
end;

Fiji-Fighter

Daniel_100 · Beiträge: 63 Win XP D3 Prof, D6 Enterprise

Der Code funktioniert nicht, da der "integervar" kein Wert zugewiesen ist (Wert: 4358644)!!!

Ehemaliges Mitglied Erhaltene Danke: 1

Wenn du die Lösung eigentlich schon weißt:

Zitat:

da der "integervar" kein Wert zugewiesen ist

Warum wendest du sie dann nicht an?

Kann man bei dir mehrere Einträge aus der Listbox wählen?
Nein. Dann solltest du dir mal die Eigenschaft "ItemIndex" ansehen.
Ja. Dann brauchst du vielleicht eine Schleife, die alle Items durchgeht und die ausgewählten in das Menü aufnimmt.

Der Code funktioniert.
Der Fehler liegt ganz einfach nur bei dir.

Raphael O. · Beiträge: 1596 VS 2013

integervar ist eine Integervariable, der du den Wert zuweist, den die markierte Zeile in der Listbox hat!!!
Also so:

markieren

Quelltext

1:	integervar:=listbox1.itemindex;

oder wenn du einfach den ersten eintrag hinzufügen willst könntest du das auch so schreiben:

markieren

Quelltext

1:	item.caption:=listbox1.items[0];

oder habe ich das Problem net verstanden???

Fiji-Fighter

Daniel_100 · Beiträge: 63 Win XP D3 Prof, D6 Enterprise

Ob ich nun

Zitat:

markieren

Quelltext

1:	integervar:=listbox1.itemindex;

oder

Zitat:

markieren

Quelltext

1:	item.caption:=listbox1.items[0];

eingebe: Bei beiden wird jedes mal nur der erste Eintrag hinzugefügt. Ich wollte gerne alle Einträge auf einmal hinzufügen.

Raphael O. · Beiträge: 1596 VS 2013

alle... sag das doch gleich

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

...
for i:=0 to (listbox1.items.count-1) do
begin
item.caption:=listbox1.items[i]; 
mainmenu1.Items[i].add(item); 
end;
...

so sollte es klappen

Fiji-Fighter

Daniel_100 · Beiträge: 63 Win XP D3 Prof, D6 Enterprise

Also der Code sieht jetzt so aus:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

for i:=0 to (listbox1.items.count-1) do
begin
intv:=listbox1.itemindex;
item:=tmenuitem.create(mainmenu1);
item.caption:=listbox1.items[i];
mainmenu1.Items.Add(item);
end;

So werden die Einträge direkt ins Mainmenu eingetragen, oder?
Ich wollte die Einträge aber gerne ins Menü "Einträge" hinzufügen (siehe Bild oben).
Geht das auch?

Daniel_100 · Beiträge: 63 Win XP D3 Prof, D6 Enterprise

Ist schon gut. Ich habs herausgefunden!

VIELEN DANK

Moderiert von Tino: Formatierungs-Tags entfernt.

Raphael O. · Beiträge: 1596 VS 2013

nicht ganz...

du solltest auf jeden fall nicht jedesmal neu das item createn...

so sollte es aussehen... (war wahrscheinlich net gut erklärt

)

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var item:tmenuitem; 
begin 
item:=tmenuitem.create(mainmenu1); 
 for i:=0 to listbox1.items.count do
 begin
  item.caption:=listbox1.items[i];  
  mainmenu1.Items[0].add(item); 
 end;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme