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 !
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