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

Вниз

Подскажите с созданием TItemMenu   Найти похожие ветки 

 
hgd   (2005-02-21 16:16) [0]

Создал TItemMenu
 ItemFiles : array [1..5] of TMenuItem;

for ..................
           ItemFiles[i]:=TMenuItem.Create(Self);
           ItemFiles[i].Caption:="Vasia";
           ItemFiles[i].OnClick:=?????????????
           PopupMenu2.Items.Add(ItemFiles[i]);

Как создать процедуру обрабатывающую OnClick данного ItemFiles с получением его Caption.


 
DesWind ©   (2005-02-21 16:48) [1]

procedure TForm1.ClickMenuItem(Sender: TObject);
begin
.....
end;

....
ItemFiles[i].OnClick:=ClickMenuItem;
.....


 
begin...end ©   (2005-02-21 18:12) [2]

> hgd   (21.02.05 16:16)

> с получением его Caption

В методе ClickMenuItem (см. [1]) используйте свойство (Sender as TMenuItem).Caption.



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

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

Наверх




Память: 0.46 MB
Время: 0.096 c
1-1108618021
vlgrig1961
2005-02-17 08:27
2005.03.06
Как в TreeView програмно стать на TreeNode...


4-1102528255
lendasoft
2004-12-08 20:50
2005.03.06
Показать форму на втором мониторе


1-1108812807
Fostr
2005-02-19 14:33
2005.03.06
Размеры отдельных символов в тексте


4-1105877516
KILLMAN
2005-01-16 15:11
2005.03.06
отследить открытие/закрыте CD-ROM


1-1108850142
viktorovich
2005-02-20 00:55
2005.03.06
Вопрос по Memo