PopupMenu wird immer angezeigt !

Hallo

ich habe ein Problem mit Popupmenu. Ich möchte die popupmenu nur anzeigen
lassen, wenn ich mit der rechten Maustaste auf Image oder auf Shape anklicke. Es funktioniert aber wenn ich mit der linken Maustaste anklicke dann wird die Popupmenu neben Windows-Uhr angezeigt !

markieren

Delphi-Quellcode:

			procedure TForm1.shape1MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

var point:TPoint;

begin

if Button := mbRight then

getCursorPos(point);

PopupMenu1.Popup(point.X,point.Y);

end;

das Problem habe ich nicht, wenn ich

PopupMenu wird immer angezeigt !

PopupMenu wird immer angezeigt !

Forumregeln