Помогите с 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.

> 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=""
Если можно обясните подробнее, еще раз повторюсь я только учусь

Ailk (14.12.04 12:46) [12]

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

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

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

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