Popup Menu erscheint nicht! - Pestfrage!

[NicoleWagner]

Hallo User,

heute ein Problem. das so pestig ist, dass ich ratlos bin.
Ich habe ein Formular und eine ältere Version der TMS-Komponente (weshalb ich um Verzeichung bitte, den Code nicht posten zu können).

Doch ich denke, dass der Fehler eher in der Delphi XE 3 IDE liegt. Was immer ich codiere, bei Euch geht es wahrscheinlich ohnehin

Also ich habe ein Formular und klebe drauf (aus TMS):
- TPlanner
- TPlannerWaitingList

Programm läuft also fein, also noch Komfort:
Zu jedem schrieb ich ein Pop-up Menue. Das wird mir beim TPlanner angezeigt, bei der TPlannerWaitingList - - nicht! Das Popup probierte ich mit dem Objektmanager als auch via Code hinzuzufügen: Fehlanzeige!
Ich erstellte einen Button, fügte zu DEM das Popup-Menu hinzu, - es wird angezeigt.

Jetzt tat ich dies: neues Formular, - TPlanner und TPlannerWaitingList drauf, je 2 Popup-Menus dazu, eingetragen und gestartet.
Nichts: weder das eine noch das andere Element zeigt mein Kontext Menu. In meinem ersten Versuch zeigte der TPlanner das Popup WOHL an!

Das ist fuzzy!
Hoffentlich ist jemand hier, der schon "alles gesehen hat" und mir einen Tip geben kann, wie ich damit umgehe1

Danke!

[jziersch]

Du kannst das menü selber anzeigen wenn Die Komponente ein MouseDown event hat. Rechte Maustaste abfragen und Popup aufrufen.

[NicoleWagner]

Danke für Deine Idee!
MouseDown event ist vorhanden, doch
- wie frage ich die rechte Maustase ab?
- wie zeige ich das Pop-Up Memu an?

[hoika]

Hallo,
MouseDown hat den Parameter Button.
Und

https://stackoverflow.com/questions/...lick-a-tbutton

[NicoleWagner]

Danke an Hoika!
Das Rätsel geht weiter. Ich habe das jetzt implementiert:

Das ist ins Formular einzufügen
procedure ShowPopupMenuEx(var mb1:TMouseButton;var X:integer;var Y:integer;var pPopUP:TPopupMenu);
var
popupPoint : TPoint;
begin
if (mb1 = mbLeft) then begin
popupPoint.X := x ;
popupPoint.Y := y ;
popupPoint := ClientToScreen(popupPoint); //Error Here
pPopUP.Popup(popupPoint.X, popupPoint.Y) ;
end;
end;

und das als Mousedown-Event:

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
x:=100; y:= 500;
if Button = mbLeft then
ShowPopupMenuEx(button,x,y,PopupMenu_ToDo);
end;

=======================
Das Problem im Event MouseDown:
if (mb1 = mbLeft) klappt wunderbar,

hingegen:
if (mb1 = mbRight) => hier tut sich ebensowenig, wie wenn ich das Popup direkt mit Maus-Rechtsklick anzeigen möchte.

?!
Danke für Hinweise.

[bcvs]

Hast du das
if (mb1 = mbLeft) then begin im ShowPopupMenuEx entsprechend angepasst?

Ansonsten: Was sagt der Debugger? Kommst du überhaupt ins Button1MouseUp rein?