TPopupMenu* Pop1 = new TPopupMenu(this);   // neues Menü erzeugen
 Pop1->Items->Add(????);                   // wie kommt neuer Eintrag rein?????
 Pop1->Items->NewTopLine();
 Pop1->Popup(10,10);
 delete Pop1;

Möchte ein PopupMenü erstellen, dann beliebige Einträge
eintragen, nach Auswahl durch User das Popup wieder löschen..

Die BCB Hilfe ist leider super knapp (erstellen Sie mit new ein
neues Popup) und in der FAQ und google steht auch nur immer
TPopupMenu benützen.. Aber wie kommt ein Eintrag (STRING!) rein????
Da ich Ordnernamen anbieten möchte, muss das Menü flexibel sein
(während Laufzeit jederzeit neue Namen möglich)

Gruss und Danke
Stefan

Die BCB Hilfe ist leider super knapp

Hallo!? In der Hilfe zu TMenu::Items wie auch zu TMenuItem::Add gibt es konkrete Beispiele.

*Die Methode TPopupMenu erzeugt eine Instanz von TPopupMenu.

__fastcall virtual TPopupMenu(Classes::TComponent* AOwner);

Beschreibung

Rufen Sie TPopupMenu indirekt über das Schlüsselwort new auf, um zur Laufzeit ein Popup-Menü zu erstellen. Die Erstellung von Popup-Menüs, die beim Entwurf in Formulare oder Datenmodule eingefügt wurden, erfolgt automatisch.
*

Das Hallo!? ist also kaum gerechtfertig; über die Links oberhalb des
Themas kommt man ebenfalls nicht zu Deinem Link; allerdings hatte ich den
auch gefunden, kam aber damit nicht klar, da als Newbie die Hilfe leider
nicht immer gleich verständlich ist.

So sieht für mich eine für Newbies verständliche Hilfe aus:

void __fastcall TForm1::Auswhlen1Click(TObject *Sender)
{AnsiString z1; int i1, i3;                                                     // Vars definieren

 TPopupMenu *Pop1 = new TPopupMenu(this);                                       // neues PopupMenü erzeugen
 for (int i2 = 0; i2 < frm1_cbGruppe->Items->Count; ++i2) {                     // Combo Gruppe auslesen
   TMenuItem *NewItem = new TMenuItem(Pop1);                                    // Neuen Eintrag erzeugen
   Pop1->Items->Add(NewItem);                                                   // dem Popup-Menü hinzufügen
   NewItem->Caption = frm1_cbGruppe->Items->operator [](i2);                    // Eintrag aus Combo auslesen und anhängen
   NewItem->OnClick = Pop1MenuItemsClick;                                       // eine Ereignisbehandlungsroutine zuweisen
 }
 TMenuItem *NewItem = new TMenuItem(Pop1);                                      // Neuen Eintrag erzeugen
 Pop1->Items->Add(NewItem);                                                     // dem Popup-Menü hinzufügen
 NewItem->Caption = "Abbruch";                                                  // Eintrag anhängen
 Pop1->Popup(10,10);                                                            // Popup Menü zeigen
}

Trotzdem danke für Deinen Tipp
Gruss Stefan

Wie komme ich an den Auswahlindex oder Names des Menüs,
welches der User im Popup-Menü ausgewählt hat?

Da ja das Menü in einer Schleife erzeugt wird (For())
kann ich dem OnKlickEreignis ja auch nur eine Routine
zuweisen. Wie kann ich aber da erkennen, welches Menü
nun ausgewählt wurde?

NewItem->OnClick = Pop1MenuItemsClick;    / ?????

Danke und Gruss Stefan

Gruss Stefan

Da ja das Menü in einer Schleife erzeugt wird (For())
kann ich dem OnKlickEreignis ja auch nur eine Routine
zuweisen.

Warum? Du kannst auch die Methoden in der Schleife gezielt verteilen, wenn diese unterschieldiche Bedeutung haben. Zum Beispiel über ein Array.

Wie kann ich aber da erkennen, welches Menü
nun ausgewählt wurde?

Über den Parameter Sender des OnClick-Events. Du kannst beim Erstellen der MenuItems jedem von diesem in die Eigenschaft Tag eine eindeutige Zahl geben, zum Beispiel die Leufvariable der For-Schleife.
Dann kannst du beim Eventaufruf mit einem Cast des Senders auf TMenuItem wieder den Tag auslesen und weist welcher Menueintrag gemeint ist.

bis bald
akari

da ich erst 2 Wochen in C++ programmiere, weiss ich noch nicht, wie man mittels Array die Routinen zuordnen kann. Die Methode mit dem Tag finde ich aber eleganter.
Leider komme ich mit Sender und Cast und zugehöriger Hilfe nicht ganz klar. So habe ich es aktuell (das Sender->Free() ist nur so im Moment damit keine Fehlermeldung kommt):

void __fastcall TForm1::frm1_btnPopupClick(TObject *Sender)
{int i1=1; AnsiString z1;                                                       // Vars definieren
 i1=Pop1->Tag;      // ???
 Sender->Free()     // ???
 ShowMessage(i1);
 //delete Pop1;                                                                   // Popup löschen
}
void __fastcall TForm1::Auswhlen1Click(TObject *Sender)
{AnsiString z1; int i1, i3;                                                     // Vars definieren

 Pop1 = new TPopupMenu(this);                                                   // Popup neu erzeugen
 for (int i2 = 0; i2 < frm1_cbGruppe->Items->Count; ++i2) {                     // Combo Gruppe auslesen
   TMenuItem *NewItem = new TMenuItem(Pop1);                                    // Neuen Eintrag erzeugen
   Pop1->Items->Add(NewItem);                                                   // dem Popup-Menü hinzufügen
   NewItem->Caption = frm1_cbGruppe->Items->operator [](i2);                    // Eintrag aus Combo auslesen und anhängen
   NewItem->Tag=i2;                                                             // MenüID eintragen
   NewItem->OnClick=frm1_btnPopupClick;                                         // Ereignissroutine zuordnen
 }
 Pop1->Items->NewBottomLine();                                                  // Trennlinie anhängen

 TMenuItem *NewItem = new TMenuItem(Pop1);                                      // Neuen Eintrag erzeugen
 NewItem->Caption = "Abbruch";                                                  // Eintrag anhängen
 Pop1->Items->Add(NewItem);                                                     // dem Popup-Menü hinzufügen
 Pop1->Alignment=paRight;                                                       // Ausrichtung rechts zum Mauszeiger
 Pop1->Popup(5,5);                                                              // Menü zeigen an X/Y
 z1=Pop1->Items->Caption;
}

Dazu noch eine Frage, wo ich gestern mir den Wolf gesucht habe:
Wie bekomme ich aktuelle Mauskoordinaten für den Befehl Popup?
Mit Mouse scheint es nicht zu gehen (habe gestern den ganzen Tag
am Popup rumgemacht.... seufz)

Danke für die sehr guten Tipps!
Stefan

void __fastcall TForm1::frm1_btnPopupClick(TObject *Sender)
{int i1=1; 
 TMenuItem *CurItem = dynamic_cast<TMenuItem *> (Sender); // Versuchen, Sender als MenuItem anzusprechen
 if (CurItem) // Wenn Versuch erfolgreich, mit CurItem weiterarbeiten
 {
   i1=CurItem->Tag;     
   ShowMessage(i1);  
   }
}

Dazu noch eine Frage, wo ich gestern mir den Wolf gesucht habe:
Wie bekomme ich aktuelle Mauskoordinaten für den Befehl Popup?

Wozu? Dafür hast du doch den Event, der dir sagt was geklickt wurde.

bis bald
akari

Vielen Dank, funktioniert. Das Cast wandelt also den Sender
in den benötigten Typ rum, richtig? Klappt jedenfalls.

Die Mauskoordinaten suche ich wegen dem Befehl

int x,y;
 x=5  
 y=5
 Pop1->Popup(x,y);

Statt x/y mit Koordinate 5 möchte ich das Menü logischerweise
unter der Maus haben (mit Aligment passiert nichts).
Ich kenne aus anderen Sprachen z.B. MouseX oder MousesX; bei
Mouse->... finde ich aber nichts.

Gruss Stefan

Es gibt ja Mouse->CursorPos. Das gibt dir die Position in globalen Koordinaten.

das ist ja das Problem; bei Mouse-> kommt bei mir als Auswahl kein CursorPos!!
Mach ich was falsch ????

Stefan

den BCB6 mit VCL

Könnte ja mal einen Screenshot zusenden; aber schätze da kann man
nicht viel falsch machen.... oder?

Gruss Stefan

unter TMouse -> Eigenschaften -> CursorPos

weiss zwar jetzt nicht genau, was der Hinweis auf die Hilfe soll,
aber es ändert nichts an der Tatsache, daß bei Aufruf
Mouse->C.... eben KEINE Auswahl CursorPos kommt; ich habe die Hilfe
dafür kreuz und quer durchgeforstest; ebenfalls Foren und Google.

Ich programmiere seit 20 Jahren und mag in C++ Newbie sein,
in Suche Online, Foren usw. bestimmt nicht.

Wie wäre es mit einem konkreten Hinweis oder Tipp?

Gruss Stefan

z.B.

TPoint p = Mouse->CursorPos;
String t = "X: " + IntToStr(p.x) + " Y: " + IntToStr(p.y);
ShowMessage(t);

Ne, kommen definitiv als Auswahl nur ein paar Funktionsaurufe.
Bei Eingabe Mouse->C kommen nur zwei Auswahltexte (ClassNameIs...)

Die CodeInsight-Funktion ist so intelligent, dass sie nur Methoden bzw. Properties mit kompatiblen Rückgabewerten anbietet. Wenn du also schreibst

String bla = Mouse->

dann werden auch nur die Methoden/Eigenschaften eingeblendet, die AnsiStrings zurückliefern. Ein

Mouse->

hingegen listet alles auf.

Trotzdem sollte man mit 20 Jahren Programmiererfahrung eigentlich in der Lage sein, in der Hilfe die Auflistung der Methoden eines Objektes zu finden. Wenn schon nicht aus eigener Kraft, dann doch spätestens nach Studium von junix' entsprechender Anleitung.