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

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

Runtime create PoupMemu Items... Не разберусь с OnDrawItem...

Cosinus ©   (2004-11-05 17:16:00) 

Собственно, проблемма такая - я в рантайм создаю N-ое количество пунктов в подменю одного из присутствующих PopupMenu... Указываю ему процедуру OnClick.

procedure ItemsClick(sender:TObject);

procedure TForm1.ItemsClick(sender:TObject);
begin
with Sender as TMenuItem do
  SendStr_ed.Text:=ComandArray[Tag];
end;

..........             <---Здесь создаю пункты подменю
 OnClick:=ItemsClick; <---присваиваю
..........
Все вполне работоспособно, но я никак не могу присвоить событию OnDrawItem, процедуру, с передаваемым параметром Sender... По аналогии с OnClick не прокатывает. Не подскажите, как это организовать и чем OnClick отличается от любой другой процедуры, что ему Sender пересылается по умолчанию. Или я что то недопонимаю?

---

Семен Сорокин   (2004-11-05 17:28:00) [1]

вот чем отличается:
procedure TForm1.PopupMenu1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);

---

Cosinus   (2004-11-05 17:27:00) [2]

Туплю. Вопрос снят.

---

Наверх