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

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

PopupMenu Items [D6, Win2k]

Adil ©   (2004-08-21 01:02:00) 

Програмно добавляю в ПопупМеню item-ы.
Как делать что бы при нажатии всех item-ов вызывал процедуру
myprocedure.

Где то месяц назад делал этого сам. А сейчас что то не мог:D

---

TUser   (2004-08-21 20:48:00) [1]

> Я тоже так делал не получилось.
> Нужно было
> procedure TForm1.salam(Sender: TObject);

Можно обмануть компилятор и приассигнить процедур не-оф-обджект.

var ne:TNotEvent;
begin
@ne:=@salamoleucom;
OnEvent:=ne;
end;

что-то вроде этого.

---

KADAN   (2004-08-21 15:24:00) [2]

procedure TForm1.FormCreate(Sender: TObject);
var m:TMenuItem;
begin
 m:=TMenuItem.Create(nil);
 m.Caption:='menu item';
 m.OnClick:=mclick;
 PopupMenu1.Items.Add(m);

end;

procedure TForm1.mclick(sender: tobject);
begin
 showmessage('menu item clicked!');
end;

---

Adil   (2004-08-21 15:06:00) [3]

Я тоже так делал не получилось.
Нужно было
procedure TForm1.salam(Sender: TObject);
begin
showmessage('salam');
end;

Потом
MenuItem.OnClick:=Salam;

---

KADAN   (2004-08-21 02:19:00) [4]

MenuItem.OnClick:=MyProcedure;

---

Наверх