| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите с PopupMenu! [D6, D7, Win95/98, WinXP]

Ailk ©   (2004-12-14 09:19:00) 

Здравствуйте, В моей проге в PopupMenuпрограммно добавляется пункты в SubMenu, подскажете пожалуйста кто знает, как привязать к созданому пункту событие OnClick.
С уважением.

---

Ailk   (2004-12-14 13:11:00) [1]

теперь понял, большое спасибо

---

Александр Иванов   (2004-12-14 13:02:00) [2]

Ailk   (14.12.04 12:46) [12]

Я же привел код, там создается пункт и присваивается обработчик. За кадром осталось только то, что я кинул на форму TActionList, создал Action с именем Action1 и создал для него обработчик onExecute, в котором написал код, который нужно выполнять по нажатию на пункт меню.

---

Ailk   (2004-12-14 12:46:00) [3]

Люди, извините меня, я в Delphi новичок, разжуйте мне пожалуйста. PopupMenu1.Items[1].OnClick:=myProc где мне его нужно вставить, я как понимаю у любого события есть процедура обработки. А у созданного программно пункта меню даже Name=''
Если можно обясните подробнее, еще раз повторюсь я только учусь

---

Leonid Troyanovsky   (2004-12-14 11:40:00) [4]

> Cosinus ©   (14.12.04 11:19) [10]

> А-а-а, в этом смысле:)
> Ну не знаю, мне наоборот всегда удобно было пользоваться
> procedure of object.


Т.е., ты подумал, что Alik'у будет удобней наооборот?
:)

--
С уважением, LVT.

---

Cosinus   (2004-12-14 11:19:00) [5]

> Leonid Troyanovsky ©   (14.12.04 11:11) [9]

А-а-а, в этом смысле:)
Ну не знаю, мне наоборот всегда удобно было пользоваться procedure of object.

---

Leonid Troyanovsky   (2004-12-14 11:11:00) [6]

> Cosinus ©   (14.12.04 10:05)

> Procedure MyProc(Sender:TObject);
> .....
> PopupMenu1.Items[1].OnClick:=myProc;
> ....

> Д.б. метод.

> Почему?

> property OnClick: TNotifyEvent

> И что? Или только из-за этого The TNotifyEvent type is the
> type for events that have no event-specific parameters?


procedure <> procedure of object ~ TNotifyEvent

--
С уважением, LVT.

---

Cosinus   (2004-12-14 10:52:00) [7]

И что? Или только из-за этого The TNotifyEvent type is the type for events that have no event-specific parameters? Если нет, тогда я не понимаю. Объясните.

---

Leonid Troyanovsky   (2004-12-14 10:46:00) [8]

> Cosinus ©   (14.12.04 10:35) [6]
> Почему?


property OnClick: TNotifyEvent

--
Regards, LVT.

---

Cosinus   (2004-12-14 10:35:00) [9]

> Leonid Troyanovsky ©   (14.12.04 10:11) [5]

Почему?

---

Leonid Troyanovsky   (2004-12-14 10:11:00) [10]

> Cosinus ©   (14.12.04 10:05) [4]

> Procedure MyProc(Sender:TObject);


Д.б. метод.

--
С уважением, LVT

---

Александр Иванов   (2004-12-14 10:05:00) [11]


procedure TForm1.Button1Click(Sender: TObject);
var M:TMenuItem;
begin
 M:=TMenuItem.Create(nil);
 M.Caption:='FFF';
 M.OnClick:=Action1.OnExecute;
 popupMenu1.Items.Add(M);
end;


Использовал ActionList.

---

Cosinus   (2004-12-14 10:05:00) [12]

> Ailk   (14.12.04 09:53) [2]
я знаю что PopupMenu1.Items[1].OnClick:=myProc;
вот только как это реализовать, подскажите пожалуйста

Классно спросил!!! Почти как в падающих шарах :)))

Procedure MyProc(Sender:TObject);
begin
 ShowMessage('You click '+TMenuItem(Sender).name+' menu item');
end;

.....
PopupMenu1.Items[1].OnClick:=myProc;
....

---

Ailk   (2004-12-14 09:53:00) [13]

я знаю что PopupMenu1.Items[1].OnClick:=myProc;
вот только как это реализовать, подскажите пожалуйста

---

Александр Иванов   (2004-12-14 09:32:00) [14]

PopupMenu1.Items[1].OnClick:=myProc;

---

Наверх