запрет двойного меню

[IliaIT]

Возникла ситуация в которой на форме вылазит второе меню после выбора первого.
Описание. на форме находятся

    GroupBox1: TGroupBox;
    Shape1: TShape;
    PopupMenu1: TPopupMenu;
    PopupMenu2: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;

В GroupBox1 в PopupMenu присвоено меню 2. а в Shape1 в событии MouseUp вызывается меню 1.

вопрос как сделать так что бы при вызывании меню 1 в Shape1 потом не отображалось меню 2.

[SovereignSun]

Просто очисти поле Popupmenu в groupbox1 и все

[IliaIT]

а пример можно как во время вызова меню 1 очистить поле Popupmenu? что бы потом в другом месте groupbox1 можно было бы вызвать меню 2.

[Аватар]

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  GroupBox1.PopupMenu:=nil;
end;

procedure TForm1.GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  GroupBox1.PopupMenu:=PopupMenu2;
end;

[IliaIT]

Спасибо большое натолкнули на мысль как выключить меню если названия груп боксов очень разные, а писать много не охота. то есть многим объектам присвоить одно событие.

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //GroupBox1.PopupMenu:=nil;
PopupMenu2.AutoPopup:=false;
end;

procedure TForm1.GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 // GroupBox1.PopupMenu:=PopupMenu2;
PopupMenu2.AutoPopup:=true;
end;