MainMenu=>SubMenu

← →
Михайлов Антон (2003-03-29 09:51) [0]

Люди, помогите... Есть две стоящие передо мной задачи:
1) Нужно создать динамически подменю, в которой будут добавлятся пункты (например #GoodRoom, #Nv-Key, #Coding и т.п.) ... Я думаю это не сложно
2) Ко всем поунтам подменю надо сделать событие, по клику выполняеться процедура в которую передаётся Кэпшен пункта меню(например "#GoodRoom")

Заранее благодарствую!

← →
QUE (2003-03-29 16:09) [1]

НУ просто
MI := TMenuItem.Create(self);
MI.Caption := "#GoodRoom";
MI.onClick := MyClickDynamicMenuItem;

procedure TForm1.MyClickDynamicMenuItem(Sender: TObject);
var
Cap: string;
begin
if (Sender is TMenuItem) then
Cap := (Sender as TMenuItem).Caption;
end;

Вот писал прямо тут и много пропустил но основное написал ...

← →
Chlavik (2003-03-29 16:21) [2]

А помойму тебе надо бьявить var MenuArray:array of TMenuItem;
а потом уже
begin
for i:=0 to сколько тебе надо do
Setlength(MenuArray,i+1);
MenuArray[i]:=TMenuItem.Create(self);
MenuArray[i] := "#GoodRoom";
MenuArray[i].onClick := MyClickDynamicMenuItem;
end;

а событе onclick так же обрабатывать как у QUE

Должно пахать...

← →
Chlavik (2003-03-29 16:25) [3]

в цикле begin end допиешеш sorry...

← →
Chlavik (2003-03-29 16:36) [4]

Блин короче спешил там еще MenuArray[i].Caption := IntTOStr(i); короче главное что бы ты идею понял... да и еще создай процедуру MyClickDynamicMenuItem

← →
Михайлов Антон (2003-03-29 17:11) [5]

2 Chlavik
Я понял, спасибо, мне первый вариант подошёл

ВСЕМ ОГРОМНОЕ СПАСИБО

MainMenu=>SubMenu Найти похожие ветки