PopupMenu wird immer angezeigt !

[thomas2009]

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

[DeddyH]

Da fehlen auch ein begin und ein end.

[nahpets]

Hallo,

Zitat:

Zitat von thomas2009

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

hilft eventuell das:

Delphi-Quellcode:

procedure TForm1.shape1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var point:TPoint;
begin
  if (Sender = shape1) or (Sender = Image???) then
  begin
    if Button := mbRight then
    begin // <-- Das fehlt in Deinem Code mit ziemlicher Sicherheit!!!
      getCursorPos(point);
      PopupMenu1.Popup(point.X,point.Y);
    end; // <-- Das fehlt in Deinem Code mit ziemlicher Sicherheit!!!
  end;
end;

Stephan

[DeddyH]

:zwinker:

[nahpets]

Zitat:

Zitat von DeddyH

:zwinker:

Ja, Du warst schneller, bin halt ein alter lahmer Knacker :wink:

[thomas2009]

Stimmt, das lag an Begin und end
Danke