Einzelnen Beitrag anzeigen

passsy

Registriert seit: 1. Jan 2007
124 Beiträge
 
#1

popupmenu popt seltsam auf

  Alt 19. Feb 2007, 20:11
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
Pascal
  Mit Zitat antworten Zitat