VPF::Динамическое создание меню в MainMenu

ivan219

Дата 28.9.2006, 16:38 (ссылка)

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

Загрузка ...

Эксперт

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

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

Как в MainMenu динамически создовать пункты меню и под меню smile

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

Мой первый сайт и моя первая программа!!!!!

Romikgy

Дата 28.9.2006, 16:52 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7325
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

с помощью винапи или вцл?

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

ivan219

Дата 28.9.2006, 17:24 (ссылка)

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

Загрузка ...

Эксперт

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

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

Romikgy, нет уменя компонент уже на форме мне надо только его меню и.т.д.

Но как создавать я нашол.

А вот как создавать под меню и под под меню я не нашол smile

Код


var
  NewMenuItem: TMenuItem;
begin
  inc(I);
  NewMenuItem:= TMenuItem.Create(Self);
  NewMenuItem.Caption:= 'N'+FloatToStr(I);
  NewMenuItem.OnClick:= SomeMenuItemClick;
  NewMenuItem.Name:='N'+FloatToStr(I);
  MainMenu1.Items.Add(NewMenuItem);
end;

Нужно зделать вот так.

Это сообщение отредактировал(а) ivan219 - 28.9.2006, 17:38

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

Мой первый сайт и моя первая программа!!!!!

Zero

Дата 28.9.2006, 21:56 (ссылка)

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

Загрузка ...

Эксперт

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

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

Используй метод вставки:

Код


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;

Добавлено @ 22:01
Первый индекс означает порядковый номер пункта меню.
Для хранения пунктов можно использовать динамический массив типа TMenuItem.

ivan219

Дата 29.9.2006, 09:43 (ссылка)

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

Загрузка ...

Эксперт

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

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

Zero, спасибо smile

+1

Весь код и некоторые дополнения.

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, XPMan;

type
  TForm1 = class(TForm)
    Button1: TButton;
    MainMenu1: TMainMenu;
    Label1: TLabel;
    XPManifest: TXPManifest;
    procedure Button1Click(Sender: TObject);
    procedure SomeMenuItemClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  I:Integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SomeMenuItemClick(Sender: TObject);
begin
 Label1.Caption:=TMenuItem(Sender).Name;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  m,pm,sm:tmenuitem;
begin
  inc(I);
  m := TMenuItem.Create(MainMenu1);
  m.Caption := 'Меню';
  m.Name:='N'+FloatToStr(I);
  m.OnClick:= SomeMenuItemClick; // Вызываемая процедура при клике мышкой
  mainmenu1.Items.Add(m);

  pm := TMenuItem.Create(m);
  pm.Caption := 'Пункт меню';
  pm.Name:='N1'+FloatToStr(I);
  pm.OnClick:= SomeMenuItemClick;
  m.Insert(0,pm);

  sm := TMenuItem.Create(pm);
  sm.Caption := 'Под меню';
  sm.Name:='N2'+FloatToStr(I);
  sm.OnClick:= SomeMenuItemClick;
  pm.Insert(0,sm);
end;
end.

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

Мой первый сайт и моя первая программа!!!!!

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