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

Вниз

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

 
easy   (2002-04-12 19:22) [0]

Подскажите, пожалуйста, как программно создать массив элементов меню, чтобы потом можно было обращаться к каждому элементу по его индексу, типа, как в бейсике:

Private Sub s01_Click(Index As Integer)

End Sub


 
Poirot ©   (2002-04-12 21:02) [1]

Зачем??????????????? Если нет, то есть другой способ!!!!


 
olookin ©   (2002-04-13 09:32) [2]

Например так:

//уже есть какое-то MainMenu например MainMenu1
//в котором есть пункт "Новые элементы меню"
//(и этот пнукт первый по счету)
//причем вставлять новые итемы хочется именно в этот пункт

//глобальный массив
var m: array of TMenuItem;

//новый итем вставляется при нажатии на кнопку
procedure TForm1.Button1Click(Sender: TObject);
begin
Setlength(m,Mainmenu1.Items.Items[0].Count+1);
m[Length(m)-1]:=TMenuitem.Create(Mainmenu1);
Mainmenu1.Items.Items[0].Add(m[Length(m)-1]);
m[Length(m)-1].Caption:="New item"+inttostr(Length(m));
m[Length(m)-1].Tag:=Length(m)-1;
//назначаем новому итему процедуру на событие OnClick
m[Length(m)-1].OnClick:=CommonActionClick;
end;

//а это общая процедура для всех новых итемов,
//в которой действие зависит (в данном случае) от
//значения тага итема, вызвавшего эту процедуру
procedure TForm1.CommonActionClick(Sender: TObject);
begin
showmessage(inttostr((sender as tmenuitem).Tag));
end;



 
easy   (2002-04-13 11:16) [3]

Большое спасибо!!!



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
14-81059
limon
2002-03-20 10:59
2002.04.25
Юбилей: компьютерной мышке 50 лет


6-81027
Dmitriy_0
2002-02-11 09:30
2002.04.25
Как


1-80994
Miwa
2002-04-12 11:48
2002.04.25
TP7: Не то чтобы глюк, но все же...


14-81038
lipskiy
2002-03-16 13:26
2002.04.25
Люди!!! Помогите! Комп одурел совсем - сам RESET нажимает! Что делать?!


1-80892
OldGirstaris
2002-04-14 14:13
2002.04.25
Будут ли работать в Win2000 и в WinXP такие функции...