Форум: "Основная";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Вниз

меню в режиме runtime   Найти похожие ветки 

← →
ruslan   (2004-04-01 15:20) [0]

Уважаемые мастера. Подскажите, почему пункты контекстного меню не реагируют на щелчки мыши (не выполняется процедура MyPopUpMenuItemClick)? Меню создется следующим образом:

pmMyFiltr.Items.Clear;
for i:= 0 to 2 do begin
 NewItem:= TMenuItem.Create(Self);
 case i of
 0: NewItem.Caption:= " stroka 1 ";
 1: NewItem.Caption:= " stroka 2 ";
 2: NewItem.Caption:= " stroka 3 ";
 end; //case
 pmMyFiltr.Items.Add(NewItem);
 pmMyFiltr.Items[i].OnClick:= MyPopUpMenuItemClick;
end;
pmMyFiltr.Popup(Word(scoord), Word(scoord shr 16));


---

← →
Семен Сорокин ©   (2004-04-01 15:43) [1]

из справки:

procedure TForm1.AddButtonClick(Sender: TObject);
var
index: Integer;
NewItem: TMenuItem;
begin
for index := 0 to 3 do
begin
  NewItem := TMenuItem.Create(PopupMenu1); // create the new item
  PopupMenu1.Items.Add(NewItem);// add it to the Popupmenu
  NewItem.Caption := "Menu Item " + IntToStr(index);
  NewItem.Tag := index;
  NewItem.OnClick = PopupMenuItemsClick;// assign it an event handler
end;

end;

procedure TForm1.PopupMenuItemsClick(Sender: TObject);
begin
with Sender as TMenuItem do
begin
  case Tag of
    0:  ShowMessage("first item clicked");
    1:  ShowMessage("second item clicked");
    2:  ShowMessage("third item clicked");
    3:  ShowMessage("fourth item clicked");
  end;
end;
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.033 c