Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Контекстное меню, Скрыть меню 
V
    Опции темы
Keeper89
Дата 24.3.2009, 14:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 14
Всего: 58
День добрый!

На форме есть контекстное меню с подменю. Как можно при нажатии системной кнопки для контекстного меню скрыть его целиком даже если раскрыто подменю?

Заранее спасибо.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Keeper89
Дата 26.3.2009, 19:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 14
Всего: 58
??


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Rrader
  Дата 27.3.2009, 07:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


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

Репутация: 29
Всего: 191
Цитата(Keeper89 @  24.3.2009,  20:04 Найти цитируемый пост)
нажатии системной кнопки для контекстного меню

Непонятно, о чем идет речь


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Keeper89
Дата 28.3.2009, 00:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 14
Всего: 58
Цитата(Rrader @  27.3.2009,  07:19 Найти цитируемый пост)
Непонятно, о чем идет речь 

Речь идет о кнопке для контекстного меню, которая расположена справа от пробела. Как вариант можно и другую кнопку использовать.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Alix
Дата 28.3.2009, 02:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


L45
**


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

Репутация: 3
Всего: 23
В общем речь о том, как программно скрыть показанное меню, ага?

Добавлено через 8 минут и 56 секунд
как один из вариантов решения - сделать что-нибудь, что закрывает попап. Клик мышью, нажатие Escape... Сейчас специально проверил - все замечательно скрывается, независимо от того сколько там подменю открыто.


--------------------
Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois
PM MAIL ICQ Skype   Вверх
Alix
Дата 28.3.2009, 03:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


L45
**


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

Репутация: 3
Всего: 23
Еще говорят о "заклинании" PostMessage(Handle,WM_NULL,0,0); Что за тема не в курсе, я так понимаю, что это все же для корректного закрытия естественными действиями.


--------------------
Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois
PM MAIL ICQ Skype   Вверх
Keeper89
Дата 28.3.2009, 15:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 14
Всего: 58
Цитата(Alix @  28.3.2009,  02:54 Найти цитируемый пост)
как один из вариантов решения - сделать что-нибудь, что закрывает попап. Клик мышью, нажатие Escape..

Если можно примерчик, как можно скрыть меню при нажатии определенной клавиши. Хотелось бы клавиши контекстного меню...


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Alix
Дата 29.3.2009, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


L45
**


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

Репутация: 3
Всего: 23
Возможно завтра наклепаю, сейчас времени  нет. Но я бы делал наверное так: установил хук на нажатие клавиш (т.к. иначе весь ввод, по-идее, идет к меню, а не к форме, когда оно открыто) и по нажатию определенной (например той - контекстного меню), скрывал бы меню просимулировав нажатие escape или щелчок мыши в пустом месте формы.


--------------------
Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois
PM MAIL ICQ Skype   Вверх
Keeper89
Дата 29.3.2009, 20:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 14
Всего: 58
Цитата(Alix @  29.3.2009,  16:54 Найти цитируемый пост)
Возможно завтра наклепаю, сейчас времени  нет. Но я бы делал наверное так: установил хук на нажатие клавиш (т.к. иначе весь ввод, по-идее, идет к меню, а не к форме, когда оно открыто) и по нажатию определенной (например той - контекстного меню), скрывал бы меню просимулировав нажатие escape или щелчок мыши в пустом месте формы. 

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


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Rrader
  Дата 1.4.2009, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


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

Репутация: 29
Всего: 191
Как вариант
Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    PopupMenu1: TPopupMenu;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TKeyMonitor = class(TControl)
  private
    FWnd: HWND;
    FKey: TAtom;
  protected
    procedure WndProc(var Msg: TMessage); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TKeyMonitor }

constructor TKeyMonitor.Create(AOwner: TComponent);
begin
  inherited;
  FWnd := Classes.AllocateHWnd(WndProc);
  FKey := GlobalAddAtom('Hotkey_VK_APPS');
  if FKey <> 0 then
    if not RegisterHotkey(FWnd, FKey, 0, VK_APPS) then
      RaiseLastOSError
    else
  else
    RaiseLastOSError;
end;

destructor TKeyMonitor.Destroy;
begin
  if not UnregisterHotKey(FWnd, FKey) then
    RaiseLastOSError;
  if FKey <> 0 then
  begin
    SetLastError(ERROR_SUCCESS);
    GlobalDeleteAtom(FKey);
    if GetLastError <> ERROR_SUCCESS then
      RaiseLastOSError;
  end;
  Classes.DeallocateHWnd(FWnd);
  inherited;
end;

procedure TKeyMonitor.WndProc(var Msg: TMessage);
begin
  with Msg do
    if Msg = WM_HOTKEY then
      if wParam = FKey then
        EndMenu
    else
      Result := DefWindowProc(FWnd, Msg, wParam, lParam);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  { Показ меню под контролем }
  with TKeyMonitor.Create(Self), Mouse.CursorPos do
  try
    { Заполнение }
    PopupMenu1.Items.Add(TMenuItem.Create(Self));
    PopupMenu1.Popup(X, Y);
  finally
    Free;
  end;
end;

end.


Это сообщение отредактировал(а) Rrader - 3.4.2009, 08:35


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Keeper89
Дата 1.4.2009, 19:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 14
Всего: 58
Цитата(Rrader @  1.4.2009,  16:54 Найти цитируемый пост)
Как вариант

Спасибо, работает шикарно  smile  для TPopupMenu, но напрочь отказывается от работы с TTBPopupMenu из комплекта ToolBar 2000.  smile 


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Rrader
  Дата 2.4.2009, 08:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


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

Репутация: 29
Всего: 191
Как вариант smile 
Код

...
procedure TKeyMonitor.WndProc(var Msg: TMessage);
begin
  with Msg do
    if Msg = WM_HOTKEY then
      if wParam = FKey then
        SetCapture(0)
    else
      Result := DefWindowProc(FWnd, Msg, wParam, lParam);
end;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  { Показ меню под контролем }
  with TKeyMonitor.Create(Self), Mouse.CursorPos do
  try
    { Заполнение }
    TBPopupMenu1.Items.Add(TTBCustomItem.Create(Self));
    TBPopupMenu1.Popup(X, Y);
  finally
    Free;
  end;
end;



--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Keeper89
Дата 2.4.2009, 20:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 14
Всего: 58
Цитата(Rrader @  2.4.2009,  08:14 Найти цитируемый пост)
Как вариант

Еще один отличный "Как вариант", спасибо smile.
Вопрос возник такой: на форме меню вызывается автоматически (у формы свойство PopUpMenu заполнено) и заполняется оно в событии OnPopup; как быть в этом случае не вызывая меню нажатием кнопки?
З.Ы. Вариант с MouseDown использовать очень не хочется, т.к. в этом случае меню нельзя вызвать кнопкой VK_APPS.

Это сообщение отредактировал(а) Keeper89 - 2.4.2009, 20:06


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Rrader
  Дата 4.4.2009, 08:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


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

Репутация: 29
Всего: 191
См. аттач

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  Menu.rar 7,00 Kb


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Keeper89
Дата 4.4.2009, 14:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 14
Всего: 58
Цитата(Rrader @  4.4.2009,  08:48 Найти цитируемый пост)
См. аттач 

 smile Спасибо!


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0831 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.