Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

Runtime create PoupMemu Items... Не разберусь с OnDrawItem...   Найти похожие ветки 

 
Cosinus ©   (2004-11-05 17:16) [0]

Собственно, проблемма такая - я в рантайм создаю 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 пересылается по умолчанию. Или я что то недопонимаю?


 
Cosinus ©   (2004-11-05 17:27) [1]

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


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

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



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

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
14-1099913616
ОлегЪ
2004-11-08 14:33
2004.11.21
Инитересный ресурс


1-1098785216
DmiSb
2004-10-26 14:06
2004.11.21
Как убрать колинтитулы при печати из TWebBrowsera ?


6-1095058553
studentt
2004-09-13 10:55
2004.11.21
Cокеты не дают перезагрузить машину ! (D6,W2k)


3-1098369500
MORA
2004-10-21 18:38
2004.11.21
Для чего нужен компонент IBSQL?


1-1099438110
Змей
2004-11-03 02:28
2004.11.21
Richedit