Главная страница
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.03 c
14-1099253398
Вопрошающий1
2004-10-31 23:09
2004.11.21
Интеграция однопольз. 1С и сторонего клиент-сервер с выписки.


1-1099547598
InfMag
2004-11-04 08:53
2004.11.21
Запоритсая проблема с конвертом TColor а


14-1099517516
Тохирбек
2004-11-04 00:31
2004.11.21
винт не работает


1-1099835952
sysa
2004-11-07 16:59
2004.11.21
работа с Mathcad


14-1099890398
ms
2004-11-08 08:06
2004.11.21
Задачка по информатике