TlistView ignoriert OnMouseUp

[Maekkelrajter]

Hallo,
z. Z. bin ich dabei, ein altes D4 - Projekt nach Delphi 10.3 zu portieren. Dabei treibt mich ein Phänomen zur Verzweiflung: In einem TListview soll mit der rechten Maustaste ein PopUp-Menu geöffnet werden. Das OnMouseUp - Ereignis wird aber nicht ausgelöst, bzw. wird nicht verarbeitet. Erst wenn ich 2 mal rechts klicke, wird der zugeordnete Handler ausgeführt. In der D4 - Version klappt alles wie gewünscht. Äußerst merkwürdig! Woran könnte das liegen? Das Projekt arbeitet ausschließlich mit der VCL.


Gruß LP

[Uwe Raabe]

Zitat von Maekkelrajter:

In einem TListview soll mit der rechten Maustaste ein PopUp-Menu geöffnet werden.

Seit einigen Delphi-Versionen gibt es zu diesem Zweck den OnContextPopup Event.

[Maekkelrajter]

Danke!
Damit klappt's wie gewünscht

Delphi-Quellcode:

procedure TMediPlanGUI.DBListviewContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
var
  px, py: Integer;
begin
  px := DBListview.clientorigin.X + MousePos.X;
  py := DBListview.clientorigin.Y + MousePos.Y;
  PopupMenu1.Popup(px, py);
end;

öffnet das Kontext-Menu neben dem Mauszeiger. Warum 'OnMouseUp' so merkwürdig reagiert, konnte ich allerdings nicht herausfinden.