Popup Menu erscheint nicht! - Pestfrage!

[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?

[NicoleWagner]

Die Überschrift sagt "Pestfrage" und das ist es auch!

if Button = mbLeft then
ShowPopupMenuEx(button,x,y,PopupMenu_ToDo);
==> wird angezeigt


if Button = mbRight then
ShowPopupMenuEx(button,x,y,PopupMenu_ToDo);
==> wird NICHT angezeigt

Wobei "Button = mbRight" im Debugger "true" ist!

Das Ding mit einem anderen TWaitList und einem anderen TPopup auf einem neuen Fenster zu tun, - schon probiert. Dasselbe Problem.
Popup wird nicht angezeigt.
Als ich in grauer Vorzeit einmal so ein Problem hatte, war die Ursache ein verlorener Strichpunkt im implementation Teil. ;-(
Das fand ich erst nach Wochen.

==========================================
PS: Ich gab entnervt auf. Statt der WaitingList prangt jetzt auf meinem Formular eine Listbox, - MIT Popup-Menu.
Danke allen, die hier geantwortet, gelesen und getüftelt haben.
Ich habe das Ding und damit das Problem gelöscht.