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

zusammenfalten · markieren

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

fehler gebannt ich hab n semikolon zu viel


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

Hi,

ich würde es aber trotzdem anders machen.

markieren

Delphi-Quellcode:

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