Hallo Forum,
bin am verzweifeln.
Ein Popupmenü wird zur Laufzeit mit Menüeinträgen wie folgt bestückt:
Menu.Items.Clear;
For i:=0 to Liste_mit_Objekten.Counz-1 do
Begin
.......
AMenuItem := TMenuItem.Create(Menu);
AMenuItem.Tag := i;
AMenuItem.Caption := irgend_ein_Caption;
AMenuItem.Bitmap := irgend_ein_BMP;
AMenuItem.OnClick := MenuItem_OnClick;
Menu.Items.Add(AMenuItem);
.........
End;
"Menu" ist ein aufs Formular gezogenes Popupmenü.
Weil ich faul bin, hab ich einen Dummy-Menüeintrag eingefügt und das entsprechende OnClick-Methoden-Gerüst erzeugen lassen.
Wenn das Popupmenü via Menu.PopUp(x,y) zur Anzeige gebracht wird, ist jedes Item an seinem Platz.
Jedoch wird bei einer entsprechenden Auswahl, das OnClick-Ereignis ignoriert.
Wird jedoch in ein Untermenü verzweigt, wird die "MenuItem_OnClick" - Methode aufgerufen.
Ich arbeite seit 10 Jahren mit Delphi aber hier bin ich mit meinem Latein am Ende und bin für jede Art von Hilfe dankbar
thomas
bin am verzweifeln.
Ein Popupmenü wird zur Laufzeit mit Menüeinträgen wie folgt bestückt:
Menu.Items.Clear;
For i:=0 to Liste_mit_Objekten.Counz-1 do
Begin
.......
AMenuItem := TMenuItem.Create(Menu);
AMenuItem.Tag := i;
AMenuItem.Caption := irgend_ein_Caption;
AMenuItem.Bitmap := irgend_ein_BMP;
AMenuItem.OnClick := MenuItem_OnClick;
Menu.Items.Add(AMenuItem);
.........
End;
"Menu" ist ein aufs Formular gezogenes Popupmenü.
Weil ich faul bin, hab ich einen Dummy-Menüeintrag eingefügt und das entsprechende OnClick-Methoden-Gerüst erzeugen lassen.
Wenn das Popupmenü via Menu.PopUp(x,y) zur Anzeige gebracht wird, ist jedes Item an seinem Platz.
Jedoch wird bei einer entsprechenden Auswahl, das OnClick-Ereignis ignoriert.
Wird jedoch in ein Untermenü verzweigt, wird die "MenuItem_OnClick" - Methode aufgerufen.
Ich arbeite seit 10 Jahren mit Delphi aber hier bin ich mit meinem Latein am Ende und bin für jede Art von Hilfe dankbar
thomas
Comment