Скачать: CL | DM;

Помогите с PopupMenu!   Найти похожие ветки 

← →
Ailk   (2004-12-14 09:19) [0]

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

---

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

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

---

← →
Ailk   (2004-12-14 09:53) [2]

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

---

← →
Александр Иванов ©   (2004-12-14 10:05) [3]


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) [4]

> 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;
....

---

← →
Leonid Troyanovsky ©   (2004-12-14 10:11) [5]

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

> Procedure MyProc(Sender:TObject);


Д.б. метод.

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

---

← →
Cosinus ©   (2004-12-14 10:35) [6]

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

Почему?

---

← →
Leonid Troyanovsky ©   (2004-12-14 10:46) [7]

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


property OnClick: TNotifyEvent

--
Regards, LVT.

---

← →
Cosinus ©   (2004-12-14 10:52) [8]

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

---

← →
Leonid Troyanovsky ©   (2004-12-14 11:11) [9]

> 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 11:19) [10]

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

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

---

← →
Leonid Troyanovsky ©   (2004-12-14 11:40) [11]

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

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


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

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

---

← →
Ailk   (2004-12-14 12:46) [12]

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

---

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

Ailk   (14.12.04 12:46) [12]

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

---

← →
Ailk   (2004-12-14 13:11) [14]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.049 c