| Статистика | 
|
|
Каталог статей
События для компонентов, созданных во время работы программы II
Вот простейший код для нового проекта с одной кнопкой и меню. (Надеюсь, в
этом ничего сложного нет ... 
{Процедура создания нового пункта меню
...}
procedure TForm1.Button1Click(Sender:
TObject);
var
NewItem: TMenuItem;begin
NewItem := TMenuItem.Create(Form1);
NewItem.Caption := 'Динамический элемент
...';
NewItem.OnClick := xyz;
MainMenu1.Items.Insert(0, NewItem);
<- Примечание: рекомендую бегло
ознакомитьсяend;
с Delphi-примером для команды Insert ...
{Любая старая 'xyz'-процедура (в настоящее
время может быть определена одна,
например,
Form1.DblClick)}
procedure TForm1.xyz(Sender:
TObject);
begin
showmessage('Запусти эту процедуру
!!');end;
|
|
|
Просмотров: 406
7
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
