Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.035 c
3-1098419472
oleg_
2004-10-22 08:31
2004.11.21
MDI


14-1099337667
Луарвик
2004-11-01 22:34
2004.11.21
Как писать на апи?


1-1099990169
race1
2004-11-09 11:49
2004.11.21
caption


14-1099641955
d[D]E
2004-11-05 11:05
2004.11.21
Вертикальный DBGrid


1-1099565173
Kat
2004-11-04 13:46
2004.11.21
Число 54 например надо записать 0054





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский