TlistView ignoriert OnMouseUp

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