popupmenu popt seltsam auf

[passsy]

ich habe 2 formen und 2 mal die procedure (exact gleich)

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 point:Tpoint;
begin
if Button=mbRight
    then
    begin
    GetCursorPos(point);
      PopupMenu1.Popup(point.x, point.y);;
end;
end;

so das lustige is nur das ich bei der einen form auch auf labels klicken kann und es popupt und bei der anderen forn passiert beim auf die label drücken nix

ich blick nich an was das liegen könnt

[passsy]

fehler gebannt ich hab n semikolon zu viel :wall:


trotzdem komisch das es beim einen ging und beim andern nich da ich bei beiden n semikolon zu viel hatte

[pilic]

Hi,

ich würde es aber trotzdem anders machen.

Delphi-Quellcode:

begin
if Button=mbRight
  then
    PopupMenu1.Popup(Left+x, Top+y);;
end;