VPF::Помогите сделать выпадающие меню в MainMenu

over

Дата 11.6.2009, 14:20 (ссылка)

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

Загрузка ...

Новичок

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

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

Подскажите как отловить нажатие правой кнопки мыши в MainMenu т.е. необходимо реализовать выподающие меню на каком нибудь из пунктов в MainMenu (Такое реализовано в Пуске, если нажать прваой кнопкой мыши на Iteme выподает PopupMenu с какими либо действиями)

over

Дата 12.6.2009, 09:18 (ссылка)

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

Загрузка ...

Новичок

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

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

Как отловить нажтие правой клавиши мыши я разобрался, нужно отлавливать ссобщение WM_MENURBUTTONUP, но появилась еще одна проблема: при открытом пункте меню в MainMenu, не хочет открываться PopupMenu.

Rrader

Дата 12.6.2009, 09:46 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    PopupMenu1: TPopupMenu;
    N12: TMenuItem;
    N22: TMenuItem;
    N32: TMenuItem;
    N41: TMenuItem;
  private
    procedure OnWMMenuRButtonUp(var Msg: TMessage); message WM_MENURBUTTONUP;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.OnWMMenuRButtonUp(var Msg: TMessage);
begin
  inherited;
  with Mouse, CursorPos do
    TrackPopupMenuEx(PopupMenu1.Handle, TPM_RECURSE or TPM_RETURNCMD,
      X, Y, Handle, nil);
end;

end.

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

Let's do this quickly!
Rest in peace, Vit!

over

Дата 12.6.2009, 11:54 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо большое, помогло smile

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