Einträge in einem Untermenü einfügen !

Jagg · Beiträge: 635

Hallo !

Also,ich habe ein Menü,indem es einmal die Optionen "Datei,Extras und Info" gibt !
Bei Extras gibt es dann dadrunter die Option "Daten sortieren" und wenn ich mit der rechten Maustaste draufklicke kann man ein Untermenü erstellen (das sieht das so aus,das neben dem "Daten sortieren" ein Pfeil nach rechts angezeigt wird !
So jetzt zu meinem Problem :
Die Felder(Menüpunkte) die neben dem Pfeil erscheinen sollen,sollen zur Laufzeit erstellt werden,ich habe es schon mal geschafft das er den ersten Eintrag hinschreibt,das habe ich so gemacht :

markieren

Quelltext

1:	Datensortieren.Items[i].Caption := Table1.Fields[i].FieldName

(wobei "i" eine Laufvariable ist,die immer die FeldNamen anzeigt von der aktuellen Datenbank !
aber wie mache ich das den mit einem 2.Eintrag ?
Gibt es so eine Funktion die heisst :

markieren

Quelltext

1:	Datensortieren1.Next oder Datensortieren.Add ?

Wie mache ich denn das er immer einen neuen Eintrag hinzugügt ???

Jagg ![/code]

kiwicht · Beiträge: 1021 Win 7, MacOS Delphi x, VBA, PHP, ...

markieren

Quelltext

1:	menupunkt.items.add

?!?

mfg

Jagg · Beiträge: 635

ne da habe ich schon versucht !
das geht nicht !
Was gibt es denn noch ?

Jagg !

Luncustaf · Beiträge: 324 Win 2k D7 Ent.

markieren

Quelltext

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

procedure TForm1.FormCreate(Sender: TObject);
var
NewItem: TMenuItem; //Variable vom Typ TMenuItem
begin
NewItem := Tmenuitem.Create(self); //Erzeugen der Avriable
NewItem.Caption := 'xxx'; //Variable ne Caption geben
   MainMenu1.Items[1][0].Add(newitem); //1 = Extras - 0 = Daten sortieren
Newitem.Free;
end;

gr€€tz

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme