Hallo!
Ich sitze mit Delphi 12.2 an einer Android-App, die ein Popupmenü erhalten soll, das über den Button "BMenu" aufgerufen werden soll, sein Erscheinen aber verweigert. Das Popupmenü erstelle ich in Form.create wie folgt:
Delphi-Quellcode:
var
a:integer;
Item:TMenuItem;
begin
npop1:=TCustomPopupmenu.Create(self);
npop1.Parent := BMenu; // auch Form getestet
for a := 1 to 3 do begin
item := TMenuItem.Create(nPop1);
with item do begin
name := 'item'+inttostr(a);
tag := a;
text := inttostr(a);
onclick := PopupMenuItemsClick;
end;
nPop1.AddObject(item);
end;
//nPop1.Popup(100,100); auskommentiert, da App sonst nicht startet
BMenu.PopupMenu := nPop1;
Im onClick des Button steht:
Delphi-Quellcode:
nPop1.Popup(100,100); //auch auskommentiert
nPop1.BringToFront;
Der Klick auf den Button führt zur Fehlermeldung "Abstrakter Fehler.". Wenn ich "nPop1.Popup(100,100)" auskommentiere bekomme ich keine Fehlermeldung, aber auch sonst tut sich nichts.
Was muss ich tun?