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

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

← →
Lexa   (2004-06-24 12:53) [0]

Мастеры помогите плиз!
Как программно назначить событию 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 12:58) [1]

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

---

← →
имя   (2004-06-24 13:02) [2]

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

---

← →
KSergey ©   (2004-06-24 13:09) [3]

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

---

← →
evvcom ©   (2004-06-24 13:10) [4]

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

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

---

← →
Lexa   (2004-06-24 13:24) [5]

Спасибо

---

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

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



Память: 0.45 MB
Время: 0.041 c