Popupmenu problem

[thomas2009]

Hallo

ich habe ein Shape über ein Image
Wenn ich mit der rechten oder linken Maustaste auf Shape klicke dann wird Shape-PopUp angezeigt
aber danach wird image-Popup auch angezeigt !

Das Problem habe ich nur in meinem Projekt, wenn ich ein neues Projekt zum testen erstelle,
dann passiert das Problem nicht

so wird Shape-Popup aufgerufen :

Delphi-Quellcode:

procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var point:TPoint;
begin
getCursorPos(point);
PopupMenu1.Popup(point.X,point.Y);
end;

Und Image-PopUp wird ganz normal mit der rechten Maustaste aufgerufen