Цитата:
|
Сообщение от ART
Кидай на форму Button и MainMenu. В MainMenu создай первый пункт (типа 'файл' в программах).
В обработчиках событий пиши следующее:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
item: TMenuItem;
i: integer;
begin
//динамически создаем пункты меню
for i := 1 to 15 do begin
item := TMenuItem.Create(self);
MainMenu1.Items[0].Add(item);
item.Caption := 'item ' + inttostr(i);
item.tag := i;
item.OnClick := ItemClick;
end;
end;
procedure TForm1.ItemClick(Sender: TObject);
begin
Showmessage(IntToStr((Sender as TMenuItem).tag)) ; //с tag'ом можешь делать все, что хочешь
end;
end.
|
Спасибо. Примерно понятно. Но примерно. Дело в том что, "инкремент" - это я для примера просто написал. А не знаешь, как примерно реализовать следущее:
чтобы при нажатии определенного пункта меню ( от 1 до 15) создавался файл с названием пункта меню. Функции создания файла я знаю - можно заменить на //создание файла.