VPF::Динамическое добавление итемов в MainMenu

Pentium02

Дата 6.10.2006, 22:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 29.4.2006
Где: Россия

Репутация: нет
Всего: 1

Как в ходе работы прораммы добавлять в MainMenu итемы?

Palladin

Дата 6.10.2006, 22:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  m,pm,sm:tmenuitem;
begin
  m := TMenuItem.Create(MainMenu1);
  m.Caption := 'Меню';
  mainmenu1.Items.Add(m);

  pm := TMenuItem.Create(m);
  pm.Caption := 'Пункт меню';
  m.Insert(0,pm);

  sm := TMenuItem.Create(pm);
  sm.Caption := 'Подменю';
  pm.Insert(0,sm);
end;

Made in ZERO

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Pentium02

Дата 6.10.2006, 23:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 29.4.2006
Где: Россия

Репутация: нет
Всего: 1

Ага, спасибо получилось.

Это сообщение отредактировал(а) Pentium02 - 6.10.2006, 23:25

Pentium02

Дата 6.10.2006, 23:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 29.4.2006
Где: Россия

Репутация: нет
Всего: 1

Тепрь другая проблема. А как обрабатывать нажатие на добавленый пункт?

SPrograMMer

Дата 7.10.2006, 00:23 (ссылка)

(нет голосов)

Загрузка ...

Спамер :)

Профиль
Группа: Участник
Сообщений: 442
Регистрация: 5.11.2004
Где: Краснодар

Репутация: 2
Всего: 6

Цитата(Pentium02 @ 6.10.2006, 23:38

)

А как обрабатывать нажатие на добавленый пункт

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  m,pm,sm:tmenuitem;
begin
 ....
  pm := TMenuItem.Create(m);
  pm.Caption := 'Пункт меню';
  pm.OnClick:=ClickOnMenu;  /// !!!!!
  m.Insert(0,pm);
...
end;

///
Procedure TForm1.ClickOnMenu(Sender:TObject);
begin
 ShowMessage('Click!!!');
End;

--------------------

животное = зверь
законченный гентушник

Zero

Дата 7.10.2006, 06:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Цитата(Pentium02 @ 7.10.2006, 00:38

)

А как обрабатывать нажатие на добавленый пункт?

Внизу, где написан вопрос А здесь смотрели? Прямо первым пунктом темка, хотя скорее всего во всех это есть...http://forum.vingrad.ru/index.php?showtopi...st&p=870937

Pentium02

Дата 7.10.2006, 12:20 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 29.4.2006
Где: Россия

Репутация: нет
Всего: 1

Блин, понимаете, я это делаю, чтоб добавлять закладки (ну типа как в браузере) и не известно сколько будет там пунктов, вот в чё проблема.

Добавлено позже
Ой, всё разобрался сам. Большое всем спасибо, кто помогоал!

Это сообщение отредактировал(а) Pentium02 - 7.10.2006, 12:32

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »