| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подскажите с созданием TItemMenu [D7]
hgd © (2005-02-21 16:16:00)Создал 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.
begin...end (2005-02-21 18:12:00) [1]> hgd (21.02.05 16:16)
> с получением его Caption
В методе ClickMenuItem (см. [1]) используйте свойство (Sender as TMenuItem).Caption.
DesWind (2005-02-21 16:48:00) [2]procedure TForm1.ClickMenuItem(Sender: TObject);
begin
.....
end;
....
ItemFiles[i].OnClick:=ClickMenuItem;
.....
| |
