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

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

Как программно назначить событию OnClik для меню свою процедуру? [D7, WinXP]

Lexa ©   (2004-06-24 12:53:00) 

Мастеры помогите плиз!
Как программно назначить событию OnClik для меню свою процедуру?

procedure TForm1.Button1Click(Sender: TObject);
var Item1 : TMenuItem;
begin
Item1:=TMenuItem.Create(self);
Item1.Caption:='!!!';
PopupMenu.Items[0].Add(Item1);

PopupMenu.Items[0].Items[0].OnClick:=p;  //?????

end;

procedure p(Sender : TObject);
begin
Form1.Caption:='!!!!!!!!!!!!!!!!!!!!';
end;

---

Lexa   (2004-06-24 13:24:00) [1]

Спасибо

---

evvcom   (2004-06-24 13:10:00) [2]

Причем употребление Form1 не нужно. Т.е.

procedure TForm1.p(Sender : TObject);
begin
 Caption:='!!!!!!!!!!!!!!!!!!!!';
end;

---

KSergey   (2004-06-24 13:09:00) [3]

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342

---

  (2004-06-24 13:02:00) [4]

Удалено модератором

---

Lexa   (2004-06-24 12:58:00) [5]

и подскажите плиз, как в эту процедуру p передать параметр, н-р номер Item'а на кторый щёлкнули.
Спасибо.

---

Наверх