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

Da fehlen auch ein begin und ein end.

Hallo,

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 !

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

hilft eventuell das:

zusammenfalten · markieren

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

Zitat von DeddyH:

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

Stimmt, das lag an Begin und end
Danke