VPF::как поменять пестами пункты в TPopupMenu

fack00

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

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

Загрузка ...

Новичок

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

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

имеется такой код:

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    Button1: TButton;
    menu11: TMenuItem;
    m2nu21: TMenuItem;
    menu31: TMenuItem;
    m11: TMenuItem;
    m21: TMenuItem;
    m31: TMenuItem;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
PopupMenu1.Popup(300,300);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// при клике на данную кнопку надо чтобы стало так:
//  menu1
//  menu2
//  menu3 - m1
//        - m2
//        - m3



// Было:
//  menu1
//  menu2
//  menu3 - m2
//        - m1
//        - m3
end;

end.

проект - _http://www.multiupload.com/JN8YK0TX2L

на словах:
есть popupmenu со следующей структурой:
  menu1
  menu2
  menu3 - m1
              - m2
              - m3

надо чтобы после клика по кнопке пункты m1 и m2 менялись местами, то есть структура превратилось в эту:
  menu1
  menu2
  menu3 - m2
              - m1
              - m3

ps
обыскал помпонент вдоль и поперек, но сам ничего не нашел (гугл тоже не помог)

Демо

Дата 4.5.2010, 16:45 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 7
Всего: 50

Как-то так:

Код


var
  pmTemp: TMenuItem;
begin
  pmTemp := PopupMenu1.Items[i];
  PopupMenu1.Items[i] := PopupMenu1.Items[j];
  PopupMenu1.Items[j] := pmTemp;
end;

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

fack00

Дата 4.5.2010, 18:15 (ссылка)

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

Загрузка ...

Новичок

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

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

вот...

kami

Дата 4.5.2010, 21:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Поменять значение их свойства MenuIndex.

fack00

Дата 6.5.2010, 18:23 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(kami @ 4.5.2010, 21:13

)

Поменять значение их свойства MenuIndex.

уже пробывал менять данное значение прежде, но видимо был невнимателен и не заметил, что все таки работает. Спасибо smile

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