Текущий архив: 2004.11.21;
Скачать: CL | DM;
Вниз
Runtime create PoupMemu Items... Не разберусь с OnDrawItem... Найти похожие ветки
← →
Cosinus © (2004-11-05 17:16) [0]Собственно, проблемма такая - я в рантайм создаю N-ое количество пунктов в подменю одного из присутствующих PopupMenu... Указываю ему процедуру OnClick.
Все вполне работоспособно, но я никак не могу присвоить событию OnDrawItem, процедуру, с передаваемым параметром Sender... По аналогии с OnClick не прокатывает. Не подскажите, как это организовать и чем OnClick отличается от любой другой процедуры, что ему Sender пересылается по умолчанию. Или я что то недопонимаю?
procedure ItemsClick(sender:TObject);
procedure TForm1.ItemsClick(sender:TObject);
begin
with Sender as TMenuItem do
SendStr_ed.Text:=ComandArray[Tag];
end;
.......... <---Здесь создаю пункты подменю
OnClick:=ItemsClick; <---присваиваю
..........
← →
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.045 c
